/* SAS code to extract raw Medicare data for 
** 		The Local Influence of Pioneer Investigators on Technology Adoption: 
**		Evidence from New Cancer Drugs
**
** Written by Leila Agha and David Molitor
** Date: 2/3/17
** 
** DESCRIPTION
**		This script defines three macros (extract, getDrugClaims, and denom) and 
** 		then executes them to extract Medicare data for subsequent analysis.
** FINAL PRODUCT
** 		20% carrier file extracts stored in PATH_TO_PROJECT_HOME_DIRECTORY/extracts/car
** 		100% outpatient file extracts stored in PATH_TO_PROJECT_HOME_DIRECTORY/extracts/op
** 		100% denominator file extracts stored in PATH_TO_PROJECT_HOME_DIRECTORY/extracts/denom   */


/* ***************************************************************************************************
** MACRO name: extract
** Description
**		Unzips raw Medicare files to local directory for fast processing
** Usage
** 		Filenames of of the form TYPEpercent_YEAR_divisionFILE;
** 		where TYPE is [car|denom|dme|hha|hos|hsk|ip|med|op|snf];
** 		and percent is  100, 20, 05, 01, 0001; 
** ************************************************************************************************ */
%macro extract(filename=,logpath=);
	* e.g., filename = ip0001_2004_revcntrs2.sas7bdat.bz2;
	*       filename = car01f1_2003_clms1.sas7bdat.bz2;

	* Extract elements from the filename, and create corresponding dataset name;
	%let word1 = %sysfunc(scan(&filename.,1,'_.')); * e.g., ip0001;
	%let word2 = %sysfunc(scan(&filename.,2,'_.')); * e.g., 2004;
	%let word3 = %sysfunc(scan(&filename.,3,'_.')); * e.g., revcntrs2;
	%let word4 = %sysfunc(scan(&filename.,4,'_.')); * e.g., sas7bdat;
	%let word5 = %sysfunc(scan(&filename.,5,'_.')); * e.g., bz2;
	
	%let length1 = %sysfunc(length(&word1));
	%let firstnum = %sysfunc(anydigit(&word1.));
	%let typ = %sysfunc(substrn(&word1.,1,%sysfunc(anydigit(&word1.))-1)); * e.g., ip;
	%if %sysfunc(anyalpha(&word1.,&firstnum.)) %then %do;
		%let plc = %eval(%sysfunc(anyalpha(&word1.,&firstnum.))-1);
		%let pctfile = %sysfunc(substrn(&word1.,&firstnum.,%sysfunc(anyalpha(&word1.,&firstnum.))-&firstnum.)); * e.g., 0001;
		%put &pctfile.;
		%let sfx = %sysfunc(substrn(&word1.,%sysfunc(anyalpha(&word1.,&firstnum.)))); * e.g., f1;
	%end;
	%else %do;
		%let pctfile = %sysfunc(substrn(&word1.,&firstnum.)); * e.g., 0001;
		%let sfx = ;
	%end;
	
	%let year = &word2.;
	
	%let ityp = %sysfunc(substrn(&word3.,1,%sysfunc(anydigit(&word3.))-1)); * e.g., revcntrs;
	%let inum = %sysfunc(substrn(&word3.,%sysfunc(anydigit(&word3.)))); * e.g., 2;
	
	%let ext = &word4.;
	%let zip = &word5.;
	
	%let dataset=&typ.&pctfile.&sfx._&year._&ityp.&inum.; * e.g., ip0001_2004_revcntrs2;
	%put &typ.&pctfile.&sfx._&year._&ityp.&inum..&ext..&zip. &filename.;
	
	* NB: the 20pct carrier files have a slightly different naming convention, as they are broken into 5pct chunks;
	*     That is, some 5pct car files are actually stored in the 20pct directory;
	%let pctpath = &pctfile.;
	%if (&typ.=car) & (&pctfile.=05) & (&year.>=1998) %then %let pctpath=20;
	%put &pctpath.;

	* Specify where to print log and lst;
	/* proc printto log="&logpath./extract_&dataset..log" new; */
	proc printto print="&logpath./extract_&dataset..lst" new;
	
	/* Set local temporary folder, depending on the local machine */
	%let space=PATH_TO_PROJECT_HOME_DIRECTORY/extracts; 	libname space "&space.";

	/* Only run the following extraction commands if the unzipped file does not already exist; */
	%put &space./&dataset..&ext.;
	
	* Copying big file to (fast) local disk and uncompressing;
	* Tip for the cp command: use "\cp" instead of "cp" to avoid user input prompts ("cp" is an alias for "cp -i");
	%let indir=PATH_TO_MEDICARE_DATA/&pctpath.pct/&typ./&year.;
	%put &indir.;
	x "\cp &indir./&filename. &space.";
	%if &zip.=bz2 %then x "bzip2 -df &space./&filename.";
	
	* Make a list of variables in the dataset;
	proc contents data=space.&dataset. order=varnum; 
	run;
%mend extract;






/* ***************************************************************************************************
** MACRO name: getDrugClaims
** Description
** 		This macro takes either carrier or outpatient pct files, and extracts those items matching a 
**		given set of criteria (here, cancer drugs). To run, need a list of relevant car/op pct files 
**		in the auxiliary data folder. 
** Usage:
**		To extract 20% carrier claims, set cmsdatatype=car, pct=20, startyr=1998, endyr=2008
**		To extract 100% outpatient claims, set cmsdatatype=op, pct=100, startyr=1998, endyr=2008
** ************************************************************************************************ */

%macro getDrugClaims(cmsdatatype=,pct=,startyr=,endyr=);
* Set local temporary folder;
%let folder = PATH_TO_PROJECT_HOME_DIRECTORY/extracts; 	libname folder "&folder.";

/* Auxiliary dataset location */
%let auxdatafolder = PATH_TO_PROJECT_HOME_DIRECTORY/data/auxiliary;
libname auxdata "&auxdatafolder.";

/* Where to store intermediate data files */
%let intermediate = PATH_TO_PROJECT_HOME_DIRECTORY/data/intermediate;

/* Load lists of files (by year) from which we want to extract drug claims */
data auxdata.&cmsdatatype.&pct._files;
	infile "&auxdatafolder./&cmsdatatype.&pct._files.csv" delimiter = ',' MISSOVER TERMSTR=CRLF DSD lrecl=32767 firstobs=2;
	input 	y1985 :$100. y1986 :$100. y1987 :$100. y1988 :$100. y1989 :$100. 
			y1990 :$100. y1991 :$100. y1992 :$100. y1993 :$100. y1994 :$100. y1995 :$100. y1996 :$100. y1997 :$100. y1998 :$100. y1999 :$100.
			y2000 :$100. y2001 :$100. y2002 :$100. y2003 :$100. y2004 :$100. y2005 :$100. y2006 :$100. y2007 :$100. y2008 :$100.;
run;
x "st &auxdatafolder./&cmsdatatype.&pct._files.sas7bdat &auxdatafolder./&cmsdatatype.&pct._files.dta -y";

/* For cmsdatatype_pct, make a list of all relevant years; take the "y" out of year varnames, e.g. y1999->9999 */
proc contents data = auxdata.&cmsdatatype.&pct._files out = vars(keep = varnum name) noprint; run;
proc sql noprint; select distinct name into :orderedvars separated by ' ' from vars order by varnum; quit;
%let relyears = %sysfunc(compress(&orderedvars.,"y"));

%do iter_year = 1 %to %sysfunc(countw(&relyears));
	/* Specify year, and skip if it is outside the range [startyr, endyr] specified above */
	%let year = %scan(&relyears,&iter_year);
	%if &year<&startyr | &endyr<&year %then %do; %goto skip_iter_year; %end;
		
	/* Read in all cmsdatatype_pct filenames for that year */
	proc sql noprint; select y&year. into :filenames separated by ' ' from auxdata.&cmsdatatype.&pct._files; quit;
	
	/* Specify the relevant patient ID for the current year */
	%if &year.<=2005 %then %let id=ehic;
	%if &year.>=2006 %then %let id=bene_id;
	
	
	/* ------------------------------------------------------------------------------------ */
	/* Loop through those filenames, marking and keeping line items with select HCPCS codes */
	%do iter_file=1 %to %sysfunc(countw(&filenames,' '));
		/* Read in current file name, and create the file name without the file extension */
		%let currentfile_full = %scan(&filenames,&iter_file,' ');
		%if %index(&currentfile_full.,.sas7bdat.bz2) %then %let currentfile = %substr(&currentfile_full.,1,%eval(%index(&currentfile_full.,.sas7bdat.bz2)-1));
		
		/* Skip clms files [relevant in years that CAR and OP files are split], identified by the string "clms" in their name. */
		%if %index(&currentfile.,clms) %then %do; %goto skip_iter_file; %end;
	
		/* Unzip (if needed) the appropriate file to small, local disk, using the "extract" macro  */
		%if ~(%sysfunc(fileexist(&folder./&currentfile..sas7bdat))) %then %extract(filename=&currentfile_full.,logpath=PATH_TO_PROJECT_HOME_DIRECTORY/logs); 
		
		/* HCPCS Code: For CAR and OP files, determine the line HCPCS code */
		%let dsid = %sysfunc(open(folder.&currentfile,i));
		%let hcodelist = bhcpcs hcpscd1 hcpcs_cd;
		%do i=1 %to %sysfunc(countw(&hcodelist));
			%if %sysfunc(varnum(&dsid,%scan(&hcodelist,&i))) %then %let hcpcsvar = %scan(&hcodelist,&i);
		%end;
		%if &hcpcsvar.=hcpscd1 %then %let hcpcsvar=hcpscd;
		%let dsid = %sysfunc(close(&dsid));
		
		/* ---------------------------------------------------------------------------------------------------------- */
		/* STEP 1: Load line items files, and flag line-item-level chemo indications                                  */
		/* ---------------------------------------------------------------------------------------------------------- */
		/* Line-items file coding categories 
		* Chemo Administration 
		*	ICD9 DGNS:		Car{line diagnosis}	Op{}				codes{V58.1} 
		*	ICD9 PCDR:		Car{}				Op{}				codes{99.25} 
		*	HCPCS Code:		Car{hcpcs code}		Op{hcpcs code}		codes{964xx,96400-96549,Q0083-Q0085,51720}	 
		* Specific Drugs:  
		*	HCPCS Code:		Car{hcpcs code}		Op{hcpcs code}		codes{J9000-J9999} 
		* Other: 
		*	ICDP DGNS:		Car{line diagnosis}	Op{}				codes{V66.2,V67.2} 
		* BETOS: 
		*	BETOS Code:		Car{betos} 			Op{}				codes{O1D} 
		*/ 
		
		/* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */
		/* Files with a single HCPCS_CD variable. Includes: CAR files (all years) and OP files (2001-2008)             */ 
		/* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */
		%if %index(&currentfile.,car) | (%index(&currentfile.,op)) %then %do;
		data folder.&currentfile._flag;
			set folder.&currentfile; 
			
			/* Carrier files, all years (1998-2008) */	
			%if %index(&currentfile.,car) %then %do;
				/* Flag select cancer drugs */	
				chem_capecitabine 	= &hcpcsvar.="J8520" | &hcpcsvar.="J8521";
				chem_trastuzumab 	= &hcpcsvar.="J9355";
				chem_valrubicin 	= &hcpcsvar.="J9357";
				chem_denileukin 	= &hcpcsvar.="J9160" | &hcpcsvar.="C1084";
				chem_temozolomide 	= &hcpcsvar.="J9328" | &hcpcsvar.="C9253" | &hcpcsvar.="J8700" | &hcpcsvar.="C1086";
				chem_epirubicin 	= &hcpcsvar.="J9178" | &hcpcsvar.="C1167";
				chem_bcg	 		= &hcpcsvar.="J9031";
				chem_gemtuzumab 	= &hcpcsvar.="J9300" | &hcpcsvar.="C9004";
				chem_triptorelin 	= &hcpcsvar.="J3315";
				chem_arsenic 		= &hcpcsvar.="J9017" | &hcpcsvar.="C9012";
				chem_alemtuzumab 	= &hcpcsvar.="J9010" | &hcpcsvar.="C9110";
				chem_zoledronic 	= &hcpcsvar.="J3487";
				chem_ibritumomab 	= &hcpcsvar.="A9542" | &hcpcsvar.="A9543" | &hcpcsvar.="C1082" | &hcpcsvar.="C9117" | &hcpcsvar.="A9522";
				chem_fulvestrant 	= &hcpcsvar.="J9395" | &hcpcsvar.="C9120";
				chem_rasburicase 	= &hcpcsvar.="J2783";
				chem_oxaliplatin 	= &hcpcsvar.="J9263" | &hcpcsvar.="C9205";
				chem_gefitinib 		= &hcpcsvar.="J8565";
				chem_bortezomib 	= &hcpcsvar.="J9041" | &hcpcsvar.="S0115" | &hcpcsvar.="C9207";
				chem_tositumomab 	= &hcpcsvar.="C1080" | &hcpcsvar.="C1081" | &hcpcsvar.="A9544" | &hcpcsvar.="A9545" | &hcpcsvar.="G3001";
				chem_pemetrexed 	= &hcpcsvar.="J9305" | &hcpcsvar.="C9213";
				chem_cetuximab 		= &hcpcsvar.="J9055" | &hcpcsvar.="C9215";
				chem_bevacizumab 	= &hcpcsvar.="J9035" | &hcpcsvar.="C9257" | &hcpcsvar.="Q2024" | &hcpcsvar.="S0116" | &hcpcsvar.="C9214";
				chem_clofarabine 	= &hcpcsvar.="J9027" | &hcpcsvar.="C9129";
				chem_nelarabine 	= &hcpcsvar.="J9261";
				chem_decitabine 	= &hcpcsvar.="J0894" | &hcpcsvar.="C9231";
				chem_panitumumab 	= &hcpcsvar.="J9303" | &hcpcsvar.="C9235";
				chem_temsirolimus 	= &hcpcsvar.="J9330" | &hcpcsvar.="C9239";
				chem_select 		= chem_capecitabine | chem_trastuzumab | chem_valrubicin 	| chem_denileukin 	| chem_temozolomide | chem_epirubicin 	| chem_bcg 
									| chem_gemtuzumab 	| chem_triptorelin | chem_arsenic 		| chem_alemtuzumab 	| chem_zoledronic 	| chem_ibritumomab 	| chem_fulvestrant 
									| chem_rasburicase 	| chem_oxaliplatin | chem_gefitinib 	| chem_bortezomib 	| chem_tositumomab 	| chem_pemetrexed 	| chem_cetuximab 
									| chem_bevacizumab 	| chem_clofarabine | chem_nelarabine 	| chem_decitabine 	| chem_panitumumab 	| chem_temsirolimus;
				
				/* IV chemo DRUGS */
				chem_linedrug = (index(&hcpcsvar.,"J9")>0);
				
				/* Chemo ADMINISTRATION, based on available line items */
				%if (&year.<=1999) %then %do;	%let linedgns = blndx; 		%end;
				%else 					 %do;	%let linedgns = linedgns;	%end;
				chem_lineadmin 	= (index(&linedgns.,"V581") | index(&linedgns.,"V58.1"))
								| (96400<=input(&hcpcsvar.,?? 5.) & input(&hcpcsvar.,?? 5.)<=96549)
								| (&hcpcsvar.="Q0083" | &hcpcsvar.="Q0084" |&hcpcsvar.="Q0085" | &hcpcsvar.="51720");
			%end; /* Carrier files, all years (1998-2008) */	
			
			
			/* Outpatient files, 2001-2008 */	
			%else %if %index(&currentfile.,op) & (2001<=&year.) %then %do;
				/* Flag select cancer drugs */	
				%let apcvar = APCHIPPS;
				chem_capecitabine 	= &hcpcsvar.="J8520" | &hcpcsvar.="J8521"
									| substr(&apcvar.,2,4)="7042" | substr(&apcvar.,2,4)="0934";
				chem_trastuzumab 	= &hcpcsvar.="J9355"
									| substr(&apcvar.,2,4)="1613";
				chem_valrubicin 	= &hcpcsvar.="J9357"
									| substr(&apcvar.,2,4)="9167" | substr(&apcvar.,2,4)="1235";
				chem_denileukin 	= &hcpcsvar.="J9160" | &hcpcsvar.="C1084"
									| substr(&apcvar.,2,4)="1084" | substr(&apcvar.,2,4)="1084";
				chem_temozolomide 	= &hcpcsvar.="J9328" | &hcpcsvar.="C9253" | &hcpcsvar.="J8700" | &hcpcsvar.="C1086"
									| substr(&apcvar.,2,4)="9253" | substr(&apcvar.,2,4)="1086";
				chem_epirubicin 	= &hcpcsvar.="J9178" | &hcpcsvar.="C1167"
									| substr(&apcvar.,2,4)="1167";
				chem_bcg	 		= &hcpcsvar.="J9031"
									| substr(&apcvar.,2,4)="9137" | substr(&apcvar.,2,4)="0809";
				chem_gemtuzumab 	= &hcpcsvar.="J9300" | &hcpcsvar.="C9004"
									| substr(&apcvar.,2,4)="9004";
				chem_triptorelin 	= &hcpcsvar.="J3315"
									| substr(&apcvar.,2,4)="9122";
				chem_arsenic 		= &hcpcsvar.="J9017" | &hcpcsvar.="C9012"
									| substr(&apcvar.,2,4)="9012";
				chem_alemtuzumab 	= &hcpcsvar.="J9010" | &hcpcsvar.="C9110"
									| substr(&apcvar.,2,4)="9110";
				chem_zoledronic 	= &hcpcsvar.="J3487"
									| substr(&apcvar.,2,4)="9115";
				chem_ibritumomab 	= &hcpcsvar.="A9542" | &hcpcsvar.="A9543" | &hcpcsvar.="C1082" | &hcpcsvar.="C9117" | &hcpcsvar.="A9522"
									| substr(&apcvar.,2,4)="1082" | substr(&apcvar.,2,4)="9117" | substr(&apcvar.,2,4)="1642" | substr(&apcvar.,2,4)="1083" | substr(&apcvar.,2,4)="9118" | substr(&apcvar.,2,4)="1643";
				chem_fulvestrant 	= &hcpcsvar.="J9395" | &hcpcsvar.="C9120"
									| substr(&apcvar.,2,4)="9120";
				chem_rasburicase 	= &hcpcsvar.="J2783"
									| substr(&apcvar.,2,4)="0738";
				chem_oxaliplatin 	= &hcpcsvar.="J9263" | &hcpcsvar.="C9205"
									| substr(&apcvar.,2,4)="9205" | substr(&apcvar.,2,4)="1738";
				chem_gefitinib 		= &hcpcsvar.="J8565";
				chem_bortezomib 	= &hcpcsvar.="J9041" | &hcpcsvar.="S0115" | &hcpcsvar.="C9207"
									| substr(&apcvar.,2,4)="9207";
				chem_tositumomab 	= &hcpcsvar.="C1080" | &hcpcsvar.="C1081" | &hcpcsvar.="A9544" | &hcpcsvar.="A9545" | &hcpcsvar.="G3001"
									| substr(&apcvar.,2,4)="1080" | substr(&apcvar.,2,4)="1081" | substr(&apcvar.,2,4)="1644" | substr(&apcvar.,2,4)="1645";
				chem_pemetrexed 	= &hcpcsvar.="J9305" | &hcpcsvar.="C9213"
									| substr(&apcvar.,2,4)="9213";
				chem_cetuximab 		= &hcpcsvar.="J9055" | &hcpcsvar.="C9215"
									| substr(&apcvar.,2,4)="9215";
				chem_bevacizumab 	= &hcpcsvar.="J9035" | &hcpcsvar.="C9257" | &hcpcsvar.="Q2024" | &hcpcsvar.="S0116" | &hcpcsvar.="C9214"
									| substr(&apcvar.,2,4)="9257" | substr(&apcvar.,2,4)="9214" | substr(&apcvar.,2,4)="1281";
				chem_clofarabine 	= &hcpcsvar.="J9027" | &hcpcsvar.="C9129"
									| substr(&apcvar.,2,4)="9129" | substr(&apcvar.,2,4)="1710";
				chem_nelarabine 	= &hcpcsvar.="J9261"
									| substr(&apcvar.,2,4)="0825";
				chem_decitabine 	= &hcpcsvar.="J0894" | &hcpcsvar.="C9231"
									| substr(&apcvar.,2,4)="9231";
				chem_panitumumab 	= &hcpcsvar.="J9303" | &hcpcsvar.="C9235"
									| substr(&apcvar.,2,4)="9235";
				chem_temsirolimus 	= &hcpcsvar.="J9330" | &hcpcsvar.="C9239"
									| substr(&apcvar.,2,4)="9239" | substr(&apcvar.,2,4)="1168";
				chem_select 		= chem_capecitabine | chem_trastuzumab | chem_valrubicin 	| chem_denileukin 	| chem_temozolomide | chem_epirubicin 	| chem_bcg 
									| chem_gemtuzumab 	| chem_triptorelin | chem_arsenic 		| chem_alemtuzumab 	| chem_zoledronic 	| chem_ibritumomab 	| chem_fulvestrant 
									| chem_rasburicase 	| chem_oxaliplatin | chem_gefitinib 	| chem_bortezomib 	| chem_tositumomab 	| chem_pemetrexed 	| chem_cetuximab 
									| chem_bevacizumab 	| chem_clofarabine | chem_nelarabine 	| chem_decitabine 	| chem_panitumumab 	| chem_temsirolimus;
				
				/* IV chemo DRUGS */
				chem_linedrug = (index(&hcpcsvar.,"J9")>0);
				
				/* Chemo ADMINISTRATION, based on available line items */
				chem_lineadmin 	= (96400<=input(&hcpcsvar.,?? 5.) & input(&hcpcsvar.,?? 5.)<=96549)
								| (&hcpcsvar.="Q0083" | &hcpcsvar.="Q0084" |&hcpcsvar.="Q0085" | &hcpcsvar.="51720");
			%end; /* Outpatient files, 2001-2008 */	
			
			/* Outpatient files, 1999-2000 */	
			%else %if %index(&currentfile.,op) & (1999<=&year.) & (&year.<=2000) %then %do;
				/* Flag select cancer drugs */	
				%let apcvar = APCPPS;
				chem_capecitabine 	= &hcpcsvar.1 ="J8520" | &hcpcsvar.1 ="J8521"
									| &hcpcsvar.2 ="J8520" | &hcpcsvar.2 ="J8521"
									| &hcpcsvar.3 ="J8520" | &hcpcsvar.3 ="J8521"
									| &hcpcsvar.4 ="J8520" | &hcpcsvar.4 ="J8521"
									| &hcpcsvar.5 ="J8520" | &hcpcsvar.5 ="J8521"
									| &hcpcsvar.6 ="J8520" | &hcpcsvar.6 ="J8521"
									| &hcpcsvar.7 ="J8520" | &hcpcsvar.7 ="J8521"
									| &hcpcsvar.8 ="J8520" | &hcpcsvar.8 ="J8521"
									| &hcpcsvar.9 ="J8520" | &hcpcsvar.9 ="J8521"
									| &hcpcsvar.10="J8520" | &hcpcsvar.10="J8521"
									| &hcpcsvar.11="J8520" | &hcpcsvar.11="J8521"
									| &hcpcsvar.12="J8520" | &hcpcsvar.12="J8521"
									| &hcpcsvar.13="J8520" | &hcpcsvar.13="J8521"
									| &hcpcsvar.14="J8520" | &hcpcsvar.14="J8521"
									| &hcpcsvar.15="J8520" | &hcpcsvar.15="J8521"
									| &hcpcsvar.16="J8520" | &hcpcsvar.16="J8521"
									| &hcpcsvar.17="J8520" | &hcpcsvar.17="J8521"
									| &hcpcsvar.18="J8520" | &hcpcsvar.18="J8521"
									| &hcpcsvar.19="J8520" | &hcpcsvar.19="J8521"
									| &hcpcsvar.20="J8520" | &hcpcsvar.20="J8521"
									| &hcpcsvar.21="J8520" | &hcpcsvar.21="J8521"
									| &hcpcsvar.22="J8520" | &hcpcsvar.22="J8521"
									| &hcpcsvar.23="J8520" | &hcpcsvar.23="J8521"
									| &hcpcsvar.24="J8520" | &hcpcsvar.24="J8521"
									| &hcpcsvar.25="J8520" | &hcpcsvar.25="J8521"
									| &hcpcsvar.26="J8520" | &hcpcsvar.26="J8521"
									| &hcpcsvar.27="J8520" | &hcpcsvar.27="J8521"
									| &hcpcsvar.28="J8520" | &hcpcsvar.28="J8521"
									| &hcpcsvar.29="J8520" | &hcpcsvar.29="J8521"
									| &hcpcsvar.30="J8520" | &hcpcsvar.30="J8521"
									| &hcpcsvar.31="J8520" | &hcpcsvar.31="J8521"
									| &hcpcsvar.32="J8520" | &hcpcsvar.32="J8521"
									| &hcpcsvar.33="J8520" | &hcpcsvar.33="J8521"
									| &hcpcsvar.34="J8520" | &hcpcsvar.34="J8521"
									| &hcpcsvar.35="J8520" | &hcpcsvar.35="J8521"
									| &hcpcsvar.36="J8520" | &hcpcsvar.36="J8521"
									| &hcpcsvar.37="J8520" | &hcpcsvar.37="J8521"
									| &hcpcsvar.38="J8520" | &hcpcsvar.38="J8521"
									| &hcpcsvar.39="J8520" | &hcpcsvar.39="J8521"
									| &hcpcsvar.40="J8520" | &hcpcsvar.40="J8521"
									| &hcpcsvar.41="J8520" | &hcpcsvar.41="J8521"
									| &hcpcsvar.42="J8520" | &hcpcsvar.42="J8521"
									| &hcpcsvar.43="J8520" | &hcpcsvar.43="J8521"
									| &hcpcsvar.44="J8520" | &hcpcsvar.44="J8521"
									| &hcpcsvar.45="J8520" | &hcpcsvar.45="J8521"
									| substr(&apcvar.1 ,2,4)="7042" | substr(&apcvar.1 ,2,4)="0934"
									| substr(&apcvar.2 ,2,4)="7042" | substr(&apcvar.2 ,2,4)="0934"
									| substr(&apcvar.3 ,2,4)="7042" | substr(&apcvar.3 ,2,4)="0934"
									| substr(&apcvar.4 ,2,4)="7042" | substr(&apcvar.4 ,2,4)="0934"
									| substr(&apcvar.5 ,2,4)="7042" | substr(&apcvar.5 ,2,4)="0934"
									| substr(&apcvar.6 ,2,4)="7042" | substr(&apcvar.6 ,2,4)="0934"
									| substr(&apcvar.7 ,2,4)="7042" | substr(&apcvar.7 ,2,4)="0934"
									| substr(&apcvar.8 ,2,4)="7042" | substr(&apcvar.8 ,2,4)="0934"
									| substr(&apcvar.9 ,2,4)="7042" | substr(&apcvar.9 ,2,4)="0934"
									| substr(&apcvar.10,2,4)="7042" | substr(&apcvar.10,2,4)="0934"
									| substr(&apcvar.11,2,4)="7042" | substr(&apcvar.11,2,4)="0934"
									| substr(&apcvar.12,2,4)="7042" | substr(&apcvar.12,2,4)="0934"
									| substr(&apcvar.13,2,4)="7042" | substr(&apcvar.13,2,4)="0934"
									| substr(&apcvar.14,2,4)="7042" | substr(&apcvar.14,2,4)="0934"
									| substr(&apcvar.15,2,4)="7042" | substr(&apcvar.15,2,4)="0934"
									| substr(&apcvar.16,2,4)="7042" | substr(&apcvar.16,2,4)="0934"
									| substr(&apcvar.17,2,4)="7042" | substr(&apcvar.17,2,4)="0934"
									| substr(&apcvar.18,2,4)="7042" | substr(&apcvar.18,2,4)="0934"
									| substr(&apcvar.19,2,4)="7042" | substr(&apcvar.19,2,4)="0934"
									| substr(&apcvar.20,2,4)="7042" | substr(&apcvar.20,2,4)="0934"
									| substr(&apcvar.21,2,4)="7042" | substr(&apcvar.21,2,4)="0934"
									| substr(&apcvar.22,2,4)="7042" | substr(&apcvar.22,2,4)="0934"
									| substr(&apcvar.23,2,4)="7042" | substr(&apcvar.23,2,4)="0934"
									| substr(&apcvar.24,2,4)="7042" | substr(&apcvar.24,2,4)="0934"
									| substr(&apcvar.25,2,4)="7042" | substr(&apcvar.25,2,4)="0934"
									| substr(&apcvar.26,2,4)="7042" | substr(&apcvar.26,2,4)="0934"
									| substr(&apcvar.27,2,4)="7042" | substr(&apcvar.27,2,4)="0934"
									| substr(&apcvar.28,2,4)="7042" | substr(&apcvar.28,2,4)="0934"
									| substr(&apcvar.29,2,4)="7042" | substr(&apcvar.29,2,4)="0934"
									| substr(&apcvar.30,2,4)="7042" | substr(&apcvar.30,2,4)="0934"
									| substr(&apcvar.31,2,4)="7042" | substr(&apcvar.31,2,4)="0934"
									| substr(&apcvar.32,2,4)="7042" | substr(&apcvar.32,2,4)="0934"
									| substr(&apcvar.33,2,4)="7042" | substr(&apcvar.33,2,4)="0934"
									| substr(&apcvar.34,2,4)="7042" | substr(&apcvar.34,2,4)="0934"
									| substr(&apcvar.35,2,4)="7042" | substr(&apcvar.35,2,4)="0934"
									| substr(&apcvar.36,2,4)="7042" | substr(&apcvar.36,2,4)="0934"
									| substr(&apcvar.37,2,4)="7042" | substr(&apcvar.37,2,4)="0934"
									| substr(&apcvar.38,2,4)="7042" | substr(&apcvar.38,2,4)="0934"
									| substr(&apcvar.39,2,4)="7042" | substr(&apcvar.39,2,4)="0934"
									| substr(&apcvar.40,2,4)="7042" | substr(&apcvar.40,2,4)="0934"
									| substr(&apcvar.41,2,4)="7042" | substr(&apcvar.41,2,4)="0934"
									| substr(&apcvar.42,2,4)="7042" | substr(&apcvar.42,2,4)="0934"
									| substr(&apcvar.43,2,4)="7042" | substr(&apcvar.43,2,4)="0934"
									| substr(&apcvar.44,2,4)="7042" | substr(&apcvar.44,2,4)="0934"
									| substr(&apcvar.45,2,4)="7042" | substr(&apcvar.45,2,4)="0934";
				chem_trastuzumab 	= &hcpcsvar.1 ="J9355"
									| &hcpcsvar.2 ="J9355"
									| &hcpcsvar.3 ="J9355"
									| &hcpcsvar.4 ="J9355"
									| &hcpcsvar.5 ="J9355"
									| &hcpcsvar.6 ="J9355"
									| &hcpcsvar.7 ="J9355"
									| &hcpcsvar.8 ="J9355"
									| &hcpcsvar.9 ="J9355"
									| &hcpcsvar.10="J9355"
									| &hcpcsvar.11="J9355"
									| &hcpcsvar.12="J9355"
									| &hcpcsvar.13="J9355"
									| &hcpcsvar.14="J9355"
									| &hcpcsvar.15="J9355"
									| &hcpcsvar.16="J9355"
									| &hcpcsvar.17="J9355"
									| &hcpcsvar.18="J9355"
									| &hcpcsvar.19="J9355"
									| &hcpcsvar.20="J9355"
									| &hcpcsvar.21="J9355"
									| &hcpcsvar.22="J9355"
									| &hcpcsvar.23="J9355"
									| &hcpcsvar.24="J9355"
									| &hcpcsvar.25="J9355"
									| &hcpcsvar.26="J9355"
									| &hcpcsvar.27="J9355"
									| &hcpcsvar.28="J9355"
									| &hcpcsvar.29="J9355"
									| &hcpcsvar.30="J9355"
									| &hcpcsvar.31="J9355"
									| &hcpcsvar.32="J9355"
									| &hcpcsvar.33="J9355"
									| &hcpcsvar.34="J9355"
									| &hcpcsvar.35="J9355"
									| &hcpcsvar.36="J9355"
									| &hcpcsvar.37="J9355"
									| &hcpcsvar.38="J9355"
									| &hcpcsvar.39="J9355"
									| &hcpcsvar.40="J9355"
									| &hcpcsvar.41="J9355"
									| &hcpcsvar.42="J9355"
									| &hcpcsvar.43="J9355"
									| &hcpcsvar.44="J9355"
									| &hcpcsvar.45="J9355"
									| substr(&apcvar.1 ,2,4)="1613"
									| substr(&apcvar.2 ,2,4)="1613"
									| substr(&apcvar.3 ,2,4)="1613"
									| substr(&apcvar.4 ,2,4)="1613"
									| substr(&apcvar.5 ,2,4)="1613"
									| substr(&apcvar.6 ,2,4)="1613"
									| substr(&apcvar.7 ,2,4)="1613"
									| substr(&apcvar.8 ,2,4)="1613"
									| substr(&apcvar.9 ,2,4)="1613"
									| substr(&apcvar.10,2,4)="1613"
									| substr(&apcvar.11,2,4)="1613"
									| substr(&apcvar.12,2,4)="1613"
									| substr(&apcvar.13,2,4)="1613"
									| substr(&apcvar.14,2,4)="1613"
									| substr(&apcvar.15,2,4)="1613"
									| substr(&apcvar.16,2,4)="1613"
									| substr(&apcvar.17,2,4)="1613"
									| substr(&apcvar.18,2,4)="1613"
									| substr(&apcvar.19,2,4)="1613"
									| substr(&apcvar.20,2,4)="1613"
									| substr(&apcvar.21,2,4)="1613"
									| substr(&apcvar.22,2,4)="1613"
									| substr(&apcvar.23,2,4)="1613"
									| substr(&apcvar.24,2,4)="1613"
									| substr(&apcvar.25,2,4)="1613"
									| substr(&apcvar.26,2,4)="1613"
									| substr(&apcvar.27,2,4)="1613"
									| substr(&apcvar.28,2,4)="1613"
									| substr(&apcvar.29,2,4)="1613"
									| substr(&apcvar.30,2,4)="1613"
									| substr(&apcvar.31,2,4)="1613"
									| substr(&apcvar.32,2,4)="1613"
									| substr(&apcvar.33,2,4)="1613"
									| substr(&apcvar.34,2,4)="1613"
									| substr(&apcvar.35,2,4)="1613"
									| substr(&apcvar.36,2,4)="1613"
									| substr(&apcvar.37,2,4)="1613"
									| substr(&apcvar.38,2,4)="1613"
									| substr(&apcvar.39,2,4)="1613"
									| substr(&apcvar.40,2,4)="1613"
									| substr(&apcvar.41,2,4)="1613"
									| substr(&apcvar.42,2,4)="1613"
									| substr(&apcvar.43,2,4)="1613"
									| substr(&apcvar.44,2,4)="1613"
									| substr(&apcvar.45,2,4)="1613";
				chem_valrubicin 	= &hcpcsvar.1 ="J9357"
									| &hcpcsvar.2 ="J9357"
									| &hcpcsvar.3 ="J9357"
									| &hcpcsvar.4 ="J9357"
									| &hcpcsvar.5 ="J9357"
									| &hcpcsvar.6 ="J9357"
									| &hcpcsvar.7 ="J9357"
									| &hcpcsvar.8 ="J9357"
									| &hcpcsvar.9 ="J9357"
									| &hcpcsvar.10="J9357"
									| &hcpcsvar.11="J9357"
									| &hcpcsvar.12="J9357"
									| &hcpcsvar.13="J9357"
									| &hcpcsvar.14="J9357"
									| &hcpcsvar.15="J9357"
									| &hcpcsvar.16="J9357"
									| &hcpcsvar.17="J9357"
									| &hcpcsvar.18="J9357"
									| &hcpcsvar.19="J9357"
									| &hcpcsvar.20="J9357"
									| &hcpcsvar.21="J9357"
									| &hcpcsvar.22="J9357"
									| &hcpcsvar.23="J9357"
									| &hcpcsvar.24="J9357"
									| &hcpcsvar.25="J9357"
									| &hcpcsvar.26="J9357"
									| &hcpcsvar.27="J9357"
									| &hcpcsvar.28="J9357"
									| &hcpcsvar.29="J9357"
									| &hcpcsvar.30="J9357"
									| &hcpcsvar.31="J9357"
									| &hcpcsvar.32="J9357"
									| &hcpcsvar.33="J9357"
									| &hcpcsvar.34="J9357"
									| &hcpcsvar.35="J9357"
									| &hcpcsvar.36="J9357"
									| &hcpcsvar.37="J9357"
									| &hcpcsvar.38="J9357"
									| &hcpcsvar.39="J9357"
									| &hcpcsvar.40="J9357"
									| &hcpcsvar.41="J9357"
									| &hcpcsvar.42="J9357"
									| &hcpcsvar.43="J9357"
									| &hcpcsvar.44="J9357"
									| &hcpcsvar.45="J9357"
									| substr(&apcvar.1 ,2,4)="9167" | substr(&apcvar.1 ,2,4)="1235"
									| substr(&apcvar.2 ,2,4)="9167" | substr(&apcvar.2 ,2,4)="1235"
									| substr(&apcvar.3 ,2,4)="9167" | substr(&apcvar.3 ,2,4)="1235"
									| substr(&apcvar.4 ,2,4)="9167" | substr(&apcvar.4 ,2,4)="1235"
									| substr(&apcvar.5 ,2,4)="9167" | substr(&apcvar.5 ,2,4)="1235"
									| substr(&apcvar.6 ,2,4)="9167" | substr(&apcvar.6 ,2,4)="1235"
									| substr(&apcvar.7 ,2,4)="9167" | substr(&apcvar.7 ,2,4)="1235"
									| substr(&apcvar.8 ,2,4)="9167" | substr(&apcvar.8 ,2,4)="1235"
									| substr(&apcvar.9 ,2,4)="9167" | substr(&apcvar.9 ,2,4)="1235"
									| substr(&apcvar.10,2,4)="9167" | substr(&apcvar.10,2,4)="1235"
									| substr(&apcvar.11,2,4)="9167" | substr(&apcvar.11,2,4)="1235"
									| substr(&apcvar.12,2,4)="9167" | substr(&apcvar.12,2,4)="1235"
									| substr(&apcvar.13,2,4)="9167" | substr(&apcvar.13,2,4)="1235"
									| substr(&apcvar.14,2,4)="9167" | substr(&apcvar.14,2,4)="1235"
									| substr(&apcvar.15,2,4)="9167" | substr(&apcvar.15,2,4)="1235"
									| substr(&apcvar.16,2,4)="9167" | substr(&apcvar.16,2,4)="1235"
									| substr(&apcvar.17,2,4)="9167" | substr(&apcvar.17,2,4)="1235"
									| substr(&apcvar.18,2,4)="9167" | substr(&apcvar.18,2,4)="1235"
									| substr(&apcvar.19,2,4)="9167" | substr(&apcvar.19,2,4)="1235"
									| substr(&apcvar.20,2,4)="9167" | substr(&apcvar.20,2,4)="1235"
									| substr(&apcvar.21,2,4)="9167" | substr(&apcvar.21,2,4)="1235"
									| substr(&apcvar.22,2,4)="9167" | substr(&apcvar.22,2,4)="1235"
									| substr(&apcvar.23,2,4)="9167" | substr(&apcvar.23,2,4)="1235"
									| substr(&apcvar.24,2,4)="9167" | substr(&apcvar.24,2,4)="1235"
									| substr(&apcvar.25,2,4)="9167" | substr(&apcvar.25,2,4)="1235"
									| substr(&apcvar.26,2,4)="9167" | substr(&apcvar.26,2,4)="1235"
									| substr(&apcvar.27,2,4)="9167" | substr(&apcvar.27,2,4)="1235"
									| substr(&apcvar.28,2,4)="9167" | substr(&apcvar.28,2,4)="1235"
									| substr(&apcvar.29,2,4)="9167" | substr(&apcvar.29,2,4)="1235"
									| substr(&apcvar.30,2,4)="9167" | substr(&apcvar.30,2,4)="1235"
									| substr(&apcvar.31,2,4)="9167" | substr(&apcvar.31,2,4)="1235"
									| substr(&apcvar.32,2,4)="9167" | substr(&apcvar.32,2,4)="1235"
									| substr(&apcvar.33,2,4)="9167" | substr(&apcvar.33,2,4)="1235"
									| substr(&apcvar.34,2,4)="9167" | substr(&apcvar.34,2,4)="1235"
									| substr(&apcvar.35,2,4)="9167" | substr(&apcvar.35,2,4)="1235"
									| substr(&apcvar.36,2,4)="9167" | substr(&apcvar.36,2,4)="1235"
									| substr(&apcvar.37,2,4)="9167" | substr(&apcvar.37,2,4)="1235"
									| substr(&apcvar.38,2,4)="9167" | substr(&apcvar.38,2,4)="1235"
									| substr(&apcvar.39,2,4)="9167" | substr(&apcvar.39,2,4)="1235"
									| substr(&apcvar.40,2,4)="9167" | substr(&apcvar.40,2,4)="1235"
									| substr(&apcvar.41,2,4)="9167" | substr(&apcvar.41,2,4)="1235"
									| substr(&apcvar.42,2,4)="9167" | substr(&apcvar.42,2,4)="1235"
									| substr(&apcvar.43,2,4)="9167" | substr(&apcvar.43,2,4)="1235"
									| substr(&apcvar.44,2,4)="9167" | substr(&apcvar.44,2,4)="1235"
									| substr(&apcvar.45,2,4)="9167" | substr(&apcvar.45,2,4)="1235";
				chem_denileukin 	= &hcpcsvar.1 ="J9160" | &hcpcsvar.1 ="C1084"
									| &hcpcsvar.2 ="J9160" | &hcpcsvar.2 ="C1084"
									| &hcpcsvar.3 ="J9160" | &hcpcsvar.3 ="C1084"
									| &hcpcsvar.4 ="J9160" | &hcpcsvar.4 ="C1084"
									| &hcpcsvar.5 ="J9160" | &hcpcsvar.5 ="C1084"
									| &hcpcsvar.6 ="J9160" | &hcpcsvar.6 ="C1084"
									| &hcpcsvar.7 ="J9160" | &hcpcsvar.7 ="C1084"
									| &hcpcsvar.8 ="J9160" | &hcpcsvar.8 ="C1084"
									| &hcpcsvar.9 ="J9160" | &hcpcsvar.9 ="C1084"
									| &hcpcsvar.10="J9160" | &hcpcsvar.10="C1084"
									| &hcpcsvar.11="J9160" | &hcpcsvar.11="C1084"
									| &hcpcsvar.12="J9160" | &hcpcsvar.12="C1084"
									| &hcpcsvar.13="J9160" | &hcpcsvar.13="C1084"
									| &hcpcsvar.14="J9160" | &hcpcsvar.14="C1084"
									| &hcpcsvar.15="J9160" | &hcpcsvar.15="C1084"
									| &hcpcsvar.16="J9160" | &hcpcsvar.16="C1084"
									| &hcpcsvar.17="J9160" | &hcpcsvar.17="C1084"
									| &hcpcsvar.18="J9160" | &hcpcsvar.18="C1084"
									| &hcpcsvar.19="J9160" | &hcpcsvar.19="C1084"
									| &hcpcsvar.20="J9160" | &hcpcsvar.20="C1084"
									| &hcpcsvar.21="J9160" | &hcpcsvar.21="C1084"
									| &hcpcsvar.22="J9160" | &hcpcsvar.22="C1084"
									| &hcpcsvar.23="J9160" | &hcpcsvar.23="C1084"
									| &hcpcsvar.24="J9160" | &hcpcsvar.24="C1084"
									| &hcpcsvar.25="J9160" | &hcpcsvar.25="C1084"
									| &hcpcsvar.26="J9160" | &hcpcsvar.26="C1084"
									| &hcpcsvar.27="J9160" | &hcpcsvar.27="C1084"
									| &hcpcsvar.28="J9160" | &hcpcsvar.28="C1084"
									| &hcpcsvar.29="J9160" | &hcpcsvar.29="C1084"
									| &hcpcsvar.30="J9160" | &hcpcsvar.30="C1084"
									| &hcpcsvar.31="J9160" | &hcpcsvar.31="C1084"
									| &hcpcsvar.32="J9160" | &hcpcsvar.32="C1084"
									| &hcpcsvar.33="J9160" | &hcpcsvar.33="C1084"
									| &hcpcsvar.34="J9160" | &hcpcsvar.34="C1084"
									| &hcpcsvar.35="J9160" | &hcpcsvar.35="C1084"
									| &hcpcsvar.36="J9160" | &hcpcsvar.36="C1084"
									| &hcpcsvar.37="J9160" | &hcpcsvar.37="C1084"
									| &hcpcsvar.38="J9160" | &hcpcsvar.38="C1084"
									| &hcpcsvar.39="J9160" | &hcpcsvar.39="C1084"
									| &hcpcsvar.40="J9160" | &hcpcsvar.40="C1084"
									| &hcpcsvar.41="J9160" | &hcpcsvar.41="C1084"
									| &hcpcsvar.42="J9160" | &hcpcsvar.42="C1084"
									| &hcpcsvar.43="J9160" | &hcpcsvar.43="C1084"
									| &hcpcsvar.44="J9160" | &hcpcsvar.44="C1084"
									| &hcpcsvar.45="J9160" | &hcpcsvar.45="C1084"
									| substr(&apcvar.1 ,2,4)="1084" | substr(&apcvar.1 ,2,4)="1084"
									| substr(&apcvar.2 ,2,4)="1084" | substr(&apcvar.2 ,2,4)="1084"
									| substr(&apcvar.3 ,2,4)="1084" | substr(&apcvar.3 ,2,4)="1084"
									| substr(&apcvar.4 ,2,4)="1084" | substr(&apcvar.4 ,2,4)="1084"
									| substr(&apcvar.5 ,2,4)="1084" | substr(&apcvar.5 ,2,4)="1084"
									| substr(&apcvar.6 ,2,4)="1084" | substr(&apcvar.6 ,2,4)="1084"
									| substr(&apcvar.7 ,2,4)="1084" | substr(&apcvar.7 ,2,4)="1084"
									| substr(&apcvar.8 ,2,4)="1084" | substr(&apcvar.8 ,2,4)="1084"
									| substr(&apcvar.9 ,2,4)="1084" | substr(&apcvar.9 ,2,4)="1084"
									| substr(&apcvar.10,2,4)="1084" | substr(&apcvar.10,2,4)="1084"
									| substr(&apcvar.11,2,4)="1084" | substr(&apcvar.11,2,4)="1084"
									| substr(&apcvar.12,2,4)="1084" | substr(&apcvar.12,2,4)="1084"
									| substr(&apcvar.13,2,4)="1084" | substr(&apcvar.13,2,4)="1084"
									| substr(&apcvar.14,2,4)="1084" | substr(&apcvar.14,2,4)="1084"
									| substr(&apcvar.15,2,4)="1084" | substr(&apcvar.15,2,4)="1084"
									| substr(&apcvar.16,2,4)="1084" | substr(&apcvar.16,2,4)="1084"
									| substr(&apcvar.17,2,4)="1084" | substr(&apcvar.17,2,4)="1084"
									| substr(&apcvar.18,2,4)="1084" | substr(&apcvar.18,2,4)="1084"
									| substr(&apcvar.19,2,4)="1084" | substr(&apcvar.19,2,4)="1084"
									| substr(&apcvar.20,2,4)="1084" | substr(&apcvar.20,2,4)="1084"
									| substr(&apcvar.21,2,4)="1084" | substr(&apcvar.21,2,4)="1084"
									| substr(&apcvar.22,2,4)="1084" | substr(&apcvar.22,2,4)="1084"
									| substr(&apcvar.23,2,4)="1084" | substr(&apcvar.23,2,4)="1084"
									| substr(&apcvar.24,2,4)="1084" | substr(&apcvar.24,2,4)="1084"
									| substr(&apcvar.25,2,4)="1084" | substr(&apcvar.25,2,4)="1084"
									| substr(&apcvar.26,2,4)="1084" | substr(&apcvar.26,2,4)="1084"
									| substr(&apcvar.27,2,4)="1084" | substr(&apcvar.27,2,4)="1084"
									| substr(&apcvar.28,2,4)="1084" | substr(&apcvar.28,2,4)="1084"
									| substr(&apcvar.29,2,4)="1084" | substr(&apcvar.29,2,4)="1084"
									| substr(&apcvar.30,2,4)="1084" | substr(&apcvar.30,2,4)="1084"
									| substr(&apcvar.31,2,4)="1084" | substr(&apcvar.31,2,4)="1084"
									| substr(&apcvar.32,2,4)="1084" | substr(&apcvar.32,2,4)="1084"
									| substr(&apcvar.33,2,4)="1084" | substr(&apcvar.33,2,4)="1084"
									| substr(&apcvar.34,2,4)="1084" | substr(&apcvar.34,2,4)="1084"
									| substr(&apcvar.35,2,4)="1084" | substr(&apcvar.35,2,4)="1084"
									| substr(&apcvar.36,2,4)="1084" | substr(&apcvar.36,2,4)="1084"
									| substr(&apcvar.37,2,4)="1084" | substr(&apcvar.37,2,4)="1084"
									| substr(&apcvar.38,2,4)="1084" | substr(&apcvar.38,2,4)="1084"
									| substr(&apcvar.39,2,4)="1084" | substr(&apcvar.39,2,4)="1084"
									| substr(&apcvar.40,2,4)="1084" | substr(&apcvar.40,2,4)="1084"
									| substr(&apcvar.41,2,4)="1084" | substr(&apcvar.41,2,4)="1084"
									| substr(&apcvar.42,2,4)="1084" | substr(&apcvar.42,2,4)="1084"
									| substr(&apcvar.43,2,4)="1084" | substr(&apcvar.43,2,4)="1084"
									| substr(&apcvar.44,2,4)="1084" | substr(&apcvar.44,2,4)="1084"
									| substr(&apcvar.45,2,4)="1084" | substr(&apcvar.45,2,4)="1084";
				chem_temozolomide 	= &hcpcsvar.1 ="J9328" | &hcpcsvar.1 ="C9253" | &hcpcsvar.1 ="J8700" | &hcpcsvar.1 ="C1086"
									| &hcpcsvar.2 ="J9328" | &hcpcsvar.2 ="C9253" | &hcpcsvar.2 ="J8700" | &hcpcsvar.2 ="C1086"
									| &hcpcsvar.3 ="J9328" | &hcpcsvar.3 ="C9253" | &hcpcsvar.3 ="J8700" | &hcpcsvar.3 ="C1086"
									| &hcpcsvar.4 ="J9328" | &hcpcsvar.4 ="C9253" | &hcpcsvar.4 ="J8700" | &hcpcsvar.4 ="C1086"
									| &hcpcsvar.5 ="J9328" | &hcpcsvar.5 ="C9253" | &hcpcsvar.5 ="J8700" | &hcpcsvar.5 ="C1086"
									| &hcpcsvar.6 ="J9328" | &hcpcsvar.6 ="C9253" | &hcpcsvar.6 ="J8700" | &hcpcsvar.6 ="C1086"
									| &hcpcsvar.7 ="J9328" | &hcpcsvar.7 ="C9253" | &hcpcsvar.7 ="J8700" | &hcpcsvar.7 ="C1086"
									| &hcpcsvar.8 ="J9328" | &hcpcsvar.8 ="C9253" | &hcpcsvar.8 ="J8700" | &hcpcsvar.8 ="C1086"
									| &hcpcsvar.9 ="J9328" | &hcpcsvar.9 ="C9253" | &hcpcsvar.9 ="J8700" | &hcpcsvar.9 ="C1086"
									| &hcpcsvar.10="J9328" | &hcpcsvar.10="C9253" | &hcpcsvar.10="J8700" | &hcpcsvar.10="C1086"
									| &hcpcsvar.11="J9328" | &hcpcsvar.11="C9253" | &hcpcsvar.11="J8700" | &hcpcsvar.11="C1086"
									| &hcpcsvar.12="J9328" | &hcpcsvar.12="C9253" | &hcpcsvar.12="J8700" | &hcpcsvar.12="C1086"
									| &hcpcsvar.13="J9328" | &hcpcsvar.13="C9253" | &hcpcsvar.13="J8700" | &hcpcsvar.13="C1086"
									| &hcpcsvar.14="J9328" | &hcpcsvar.14="C9253" | &hcpcsvar.14="J8700" | &hcpcsvar.14="C1086"
									| &hcpcsvar.15="J9328" | &hcpcsvar.15="C9253" | &hcpcsvar.15="J8700" | &hcpcsvar.15="C1086"
									| &hcpcsvar.16="J9328" | &hcpcsvar.16="C9253" | &hcpcsvar.16="J8700" | &hcpcsvar.16="C1086"
									| &hcpcsvar.17="J9328" | &hcpcsvar.17="C9253" | &hcpcsvar.17="J8700" | &hcpcsvar.17="C1086"
									| &hcpcsvar.18="J9328" | &hcpcsvar.18="C9253" | &hcpcsvar.18="J8700" | &hcpcsvar.18="C1086"
									| &hcpcsvar.19="J9328" | &hcpcsvar.19="C9253" | &hcpcsvar.19="J8700" | &hcpcsvar.19="C1086"
									| &hcpcsvar.20="J9328" | &hcpcsvar.20="C9253" | &hcpcsvar.20="J8700" | &hcpcsvar.20="C1086"
									| &hcpcsvar.21="J9328" | &hcpcsvar.21="C9253" | &hcpcsvar.21="J8700" | &hcpcsvar.21="C1086"
									| &hcpcsvar.22="J9328" | &hcpcsvar.22="C9253" | &hcpcsvar.22="J8700" | &hcpcsvar.22="C1086"
									| &hcpcsvar.23="J9328" | &hcpcsvar.23="C9253" | &hcpcsvar.23="J8700" | &hcpcsvar.23="C1086"
									| &hcpcsvar.24="J9328" | &hcpcsvar.24="C9253" | &hcpcsvar.24="J8700" | &hcpcsvar.24="C1086"
									| &hcpcsvar.25="J9328" | &hcpcsvar.25="C9253" | &hcpcsvar.25="J8700" | &hcpcsvar.25="C1086"
									| &hcpcsvar.26="J9328" | &hcpcsvar.26="C9253" | &hcpcsvar.26="J8700" | &hcpcsvar.26="C1086"
									| &hcpcsvar.27="J9328" | &hcpcsvar.27="C9253" | &hcpcsvar.27="J8700" | &hcpcsvar.27="C1086"
									| &hcpcsvar.28="J9328" | &hcpcsvar.28="C9253" | &hcpcsvar.28="J8700" | &hcpcsvar.28="C1086"
									| &hcpcsvar.29="J9328" | &hcpcsvar.29="C9253" | &hcpcsvar.29="J8700" | &hcpcsvar.29="C1086"
									| &hcpcsvar.30="J9328" | &hcpcsvar.30="C9253" | &hcpcsvar.30="J8700" | &hcpcsvar.30="C1086"
									| &hcpcsvar.31="J9328" | &hcpcsvar.31="C9253" | &hcpcsvar.31="J8700" | &hcpcsvar.31="C1086"
									| &hcpcsvar.32="J9328" | &hcpcsvar.32="C9253" | &hcpcsvar.32="J8700" | &hcpcsvar.32="C1086"
									| &hcpcsvar.33="J9328" | &hcpcsvar.33="C9253" | &hcpcsvar.33="J8700" | &hcpcsvar.33="C1086"
									| &hcpcsvar.34="J9328" | &hcpcsvar.34="C9253" | &hcpcsvar.34="J8700" | &hcpcsvar.34="C1086"
									| &hcpcsvar.35="J9328" | &hcpcsvar.35="C9253" | &hcpcsvar.35="J8700" | &hcpcsvar.35="C1086"
									| &hcpcsvar.36="J9328" | &hcpcsvar.36="C9253" | &hcpcsvar.36="J8700" | &hcpcsvar.36="C1086"
									| &hcpcsvar.37="J9328" | &hcpcsvar.37="C9253" | &hcpcsvar.37="J8700" | &hcpcsvar.37="C1086"
									| &hcpcsvar.38="J9328" | &hcpcsvar.38="C9253" | &hcpcsvar.38="J8700" | &hcpcsvar.38="C1086"
									| &hcpcsvar.39="J9328" | &hcpcsvar.39="C9253" | &hcpcsvar.39="J8700" | &hcpcsvar.39="C1086"
									| &hcpcsvar.40="J9328" | &hcpcsvar.40="C9253" | &hcpcsvar.40="J8700" | &hcpcsvar.40="C1086"
									| &hcpcsvar.41="J9328" | &hcpcsvar.41="C9253" | &hcpcsvar.41="J8700" | &hcpcsvar.41="C1086"
									| &hcpcsvar.42="J9328" | &hcpcsvar.42="C9253" | &hcpcsvar.42="J8700" | &hcpcsvar.42="C1086"
									| &hcpcsvar.43="J9328" | &hcpcsvar.43="C9253" | &hcpcsvar.43="J8700" | &hcpcsvar.43="C1086"
									| &hcpcsvar.44="J9328" | &hcpcsvar.44="C9253" | &hcpcsvar.44="J8700" | &hcpcsvar.44="C1086"
									| &hcpcsvar.45="J9328" | &hcpcsvar.45="C9253" | &hcpcsvar.45="J8700" | &hcpcsvar.45="C1086"
									| substr(&apcvar.1 ,2,4)="9253" | substr(&apcvar.1 ,2,4)="1086"
									| substr(&apcvar.2 ,2,4)="9253" | substr(&apcvar.2 ,2,4)="1086"
									| substr(&apcvar.3 ,2,4)="9253" | substr(&apcvar.3 ,2,4)="1086"
									| substr(&apcvar.4 ,2,4)="9253" | substr(&apcvar.4 ,2,4)="1086"
									| substr(&apcvar.5 ,2,4)="9253" | substr(&apcvar.5 ,2,4)="1086"
									| substr(&apcvar.6 ,2,4)="9253" | substr(&apcvar.6 ,2,4)="1086"
									| substr(&apcvar.7 ,2,4)="9253" | substr(&apcvar.7 ,2,4)="1086"
									| substr(&apcvar.8 ,2,4)="9253" | substr(&apcvar.8 ,2,4)="1086"
									| substr(&apcvar.9 ,2,4)="9253" | substr(&apcvar.9 ,2,4)="1086"
									| substr(&apcvar.10,2,4)="9253" | substr(&apcvar.10,2,4)="1086"
									| substr(&apcvar.11,2,4)="9253" | substr(&apcvar.11,2,4)="1086"
									| substr(&apcvar.12,2,4)="9253" | substr(&apcvar.12,2,4)="1086"
									| substr(&apcvar.13,2,4)="9253" | substr(&apcvar.13,2,4)="1086"
									| substr(&apcvar.14,2,4)="9253" | substr(&apcvar.14,2,4)="1086"
									| substr(&apcvar.15,2,4)="9253" | substr(&apcvar.15,2,4)="1086"
									| substr(&apcvar.16,2,4)="9253" | substr(&apcvar.16,2,4)="1086"
									| substr(&apcvar.17,2,4)="9253" | substr(&apcvar.17,2,4)="1086"
									| substr(&apcvar.18,2,4)="9253" | substr(&apcvar.18,2,4)="1086"
									| substr(&apcvar.19,2,4)="9253" | substr(&apcvar.19,2,4)="1086"
									| substr(&apcvar.20,2,4)="9253" | substr(&apcvar.20,2,4)="1086"
									| substr(&apcvar.21,2,4)="9253" | substr(&apcvar.21,2,4)="1086"
									| substr(&apcvar.22,2,4)="9253" | substr(&apcvar.22,2,4)="1086"
									| substr(&apcvar.23,2,4)="9253" | substr(&apcvar.23,2,4)="1086"
									| substr(&apcvar.24,2,4)="9253" | substr(&apcvar.24,2,4)="1086"
									| substr(&apcvar.25,2,4)="9253" | substr(&apcvar.25,2,4)="1086"
									| substr(&apcvar.26,2,4)="9253" | substr(&apcvar.26,2,4)="1086"
									| substr(&apcvar.27,2,4)="9253" | substr(&apcvar.27,2,4)="1086"
									| substr(&apcvar.28,2,4)="9253" | substr(&apcvar.28,2,4)="1086"
									| substr(&apcvar.29,2,4)="9253" | substr(&apcvar.29,2,4)="1086"
									| substr(&apcvar.30,2,4)="9253" | substr(&apcvar.30,2,4)="1086"
									| substr(&apcvar.31,2,4)="9253" | substr(&apcvar.31,2,4)="1086"
									| substr(&apcvar.32,2,4)="9253" | substr(&apcvar.32,2,4)="1086"
									| substr(&apcvar.33,2,4)="9253" | substr(&apcvar.33,2,4)="1086"
									| substr(&apcvar.34,2,4)="9253" | substr(&apcvar.34,2,4)="1086"
									| substr(&apcvar.35,2,4)="9253" | substr(&apcvar.35,2,4)="1086"
									| substr(&apcvar.36,2,4)="9253" | substr(&apcvar.36,2,4)="1086"
									| substr(&apcvar.37,2,4)="9253" | substr(&apcvar.37,2,4)="1086"
									| substr(&apcvar.38,2,4)="9253" | substr(&apcvar.38,2,4)="1086"
									| substr(&apcvar.39,2,4)="9253" | substr(&apcvar.39,2,4)="1086"
									| substr(&apcvar.40,2,4)="9253" | substr(&apcvar.40,2,4)="1086"
									| substr(&apcvar.41,2,4)="9253" | substr(&apcvar.41,2,4)="1086"
									| substr(&apcvar.42,2,4)="9253" | substr(&apcvar.42,2,4)="1086"
									| substr(&apcvar.43,2,4)="9253" | substr(&apcvar.43,2,4)="1086"
									| substr(&apcvar.44,2,4)="9253" | substr(&apcvar.44,2,4)="1086"
									| substr(&apcvar.45,2,4)="9253" | substr(&apcvar.45,2,4)="1086";
				chem_epirubicin 	= &hcpcsvar.1 ="J9178" | &hcpcsvar.1 ="C1167"
									| &hcpcsvar.2 ="J9178" | &hcpcsvar.2 ="C1167"
									| &hcpcsvar.3 ="J9178" | &hcpcsvar.3 ="C1167"
									| &hcpcsvar.4 ="J9178" | &hcpcsvar.4 ="C1167"
									| &hcpcsvar.5 ="J9178" | &hcpcsvar.5 ="C1167"
									| &hcpcsvar.6 ="J9178" | &hcpcsvar.6 ="C1167"
									| &hcpcsvar.7 ="J9178" | &hcpcsvar.7 ="C1167"
									| &hcpcsvar.8 ="J9178" | &hcpcsvar.8 ="C1167"
									| &hcpcsvar.9 ="J9178" | &hcpcsvar.9 ="C1167"
									| &hcpcsvar.10="J9178" | &hcpcsvar.10="C1167"
									| &hcpcsvar.11="J9178" | &hcpcsvar.11="C1167"
									| &hcpcsvar.12="J9178" | &hcpcsvar.12="C1167"
									| &hcpcsvar.13="J9178" | &hcpcsvar.13="C1167"
									| &hcpcsvar.14="J9178" | &hcpcsvar.14="C1167"
									| &hcpcsvar.15="J9178" | &hcpcsvar.15="C1167"
									| &hcpcsvar.16="J9178" | &hcpcsvar.16="C1167"
									| &hcpcsvar.17="J9178" | &hcpcsvar.17="C1167"
									| &hcpcsvar.18="J9178" | &hcpcsvar.18="C1167"
									| &hcpcsvar.19="J9178" | &hcpcsvar.19="C1167"
									| &hcpcsvar.20="J9178" | &hcpcsvar.20="C1167"
									| &hcpcsvar.21="J9178" | &hcpcsvar.21="C1167"
									| &hcpcsvar.22="J9178" | &hcpcsvar.22="C1167"
									| &hcpcsvar.23="J9178" | &hcpcsvar.23="C1167"
									| &hcpcsvar.24="J9178" | &hcpcsvar.24="C1167"
									| &hcpcsvar.25="J9178" | &hcpcsvar.25="C1167"
									| &hcpcsvar.26="J9178" | &hcpcsvar.26="C1167"
									| &hcpcsvar.27="J9178" | &hcpcsvar.27="C1167"
									| &hcpcsvar.28="J9178" | &hcpcsvar.28="C1167"
									| &hcpcsvar.29="J9178" | &hcpcsvar.29="C1167"
									| &hcpcsvar.30="J9178" | &hcpcsvar.30="C1167"
									| &hcpcsvar.31="J9178" | &hcpcsvar.31="C1167"
									| &hcpcsvar.32="J9178" | &hcpcsvar.32="C1167"
									| &hcpcsvar.33="J9178" | &hcpcsvar.33="C1167"
									| &hcpcsvar.34="J9178" | &hcpcsvar.34="C1167"
									| &hcpcsvar.35="J9178" | &hcpcsvar.35="C1167"
									| &hcpcsvar.36="J9178" | &hcpcsvar.36="C1167"
									| &hcpcsvar.37="J9178" | &hcpcsvar.37="C1167"
									| &hcpcsvar.38="J9178" | &hcpcsvar.38="C1167"
									| &hcpcsvar.39="J9178" | &hcpcsvar.39="C1167"
									| &hcpcsvar.40="J9178" | &hcpcsvar.40="C1167"
									| &hcpcsvar.41="J9178" | &hcpcsvar.41="C1167"
									| &hcpcsvar.42="J9178" | &hcpcsvar.42="C1167"
									| &hcpcsvar.43="J9178" | &hcpcsvar.43="C1167"
									| &hcpcsvar.44="J9178" | &hcpcsvar.44="C1167"
									| &hcpcsvar.45="J9178" | &hcpcsvar.45="C1167"
									| substr(&apcvar.1 ,2,4)="1167"
									| substr(&apcvar.2 ,2,4)="1167"
									| substr(&apcvar.3 ,2,4)="1167"
									| substr(&apcvar.4 ,2,4)="1167"
									| substr(&apcvar.5 ,2,4)="1167"
									| substr(&apcvar.6 ,2,4)="1167"
									| substr(&apcvar.7 ,2,4)="1167"
									| substr(&apcvar.8 ,2,4)="1167"
									| substr(&apcvar.9 ,2,4)="1167"
									| substr(&apcvar.10,2,4)="1167"
									| substr(&apcvar.11,2,4)="1167"
									| substr(&apcvar.12,2,4)="1167"
									| substr(&apcvar.13,2,4)="1167"
									| substr(&apcvar.14,2,4)="1167"
									| substr(&apcvar.15,2,4)="1167"
									| substr(&apcvar.16,2,4)="1167"
									| substr(&apcvar.17,2,4)="1167"
									| substr(&apcvar.18,2,4)="1167"
									| substr(&apcvar.19,2,4)="1167"
									| substr(&apcvar.20,2,4)="1167"
									| substr(&apcvar.21,2,4)="1167"
									| substr(&apcvar.22,2,4)="1167"
									| substr(&apcvar.23,2,4)="1167"
									| substr(&apcvar.24,2,4)="1167"
									| substr(&apcvar.25,2,4)="1167"
									| substr(&apcvar.26,2,4)="1167"
									| substr(&apcvar.27,2,4)="1167"
									| substr(&apcvar.28,2,4)="1167"
									| substr(&apcvar.29,2,4)="1167"
									| substr(&apcvar.30,2,4)="1167"
									| substr(&apcvar.31,2,4)="1167"
									| substr(&apcvar.32,2,4)="1167"
									| substr(&apcvar.33,2,4)="1167"
									| substr(&apcvar.34,2,4)="1167"
									| substr(&apcvar.35,2,4)="1167"
									| substr(&apcvar.36,2,4)="1167"
									| substr(&apcvar.37,2,4)="1167"
									| substr(&apcvar.38,2,4)="1167"
									| substr(&apcvar.39,2,4)="1167"
									| substr(&apcvar.40,2,4)="1167"
									| substr(&apcvar.41,2,4)="1167"
									| substr(&apcvar.42,2,4)="1167"
									| substr(&apcvar.43,2,4)="1167"
									| substr(&apcvar.44,2,4)="1167"
									| substr(&apcvar.45,2,4)="1167";
				chem_bcg	 		= &hcpcsvar.1 ="J9031"
									| &hcpcsvar.2 ="J9031"
									| &hcpcsvar.3 ="J9031"
									| &hcpcsvar.4 ="J9031"
									| &hcpcsvar.5 ="J9031"
									| &hcpcsvar.6 ="J9031"
									| &hcpcsvar.7 ="J9031"
									| &hcpcsvar.8 ="J9031"
									| &hcpcsvar.9 ="J9031"
									| &hcpcsvar.10="J9031"
									| &hcpcsvar.11="J9031"
									| &hcpcsvar.12="J9031"
									| &hcpcsvar.13="J9031"
									| &hcpcsvar.14="J9031"
									| &hcpcsvar.15="J9031"
									| &hcpcsvar.16="J9031"
									| &hcpcsvar.17="J9031"
									| &hcpcsvar.18="J9031"
									| &hcpcsvar.19="J9031"
									| &hcpcsvar.20="J9031"
									| &hcpcsvar.21="J9031"
									| &hcpcsvar.22="J9031"
									| &hcpcsvar.23="J9031"
									| &hcpcsvar.24="J9031"
									| &hcpcsvar.25="J9031"
									| &hcpcsvar.26="J9031"
									| &hcpcsvar.27="J9031"
									| &hcpcsvar.28="J9031"
									| &hcpcsvar.29="J9031"
									| &hcpcsvar.30="J9031"
									| &hcpcsvar.31="J9031"
									| &hcpcsvar.32="J9031"
									| &hcpcsvar.33="J9031"
									| &hcpcsvar.34="J9031"
									| &hcpcsvar.35="J9031"
									| &hcpcsvar.36="J9031"
									| &hcpcsvar.37="J9031"
									| &hcpcsvar.38="J9031"
									| &hcpcsvar.39="J9031"
									| &hcpcsvar.40="J9031"
									| &hcpcsvar.41="J9031"
									| &hcpcsvar.42="J9031"
									| &hcpcsvar.43="J9031"
									| &hcpcsvar.44="J9031"
									| &hcpcsvar.45="J9031"
									| substr(&apcvar.1 ,2,4)="9137" | substr(&apcvar.1 ,2,4)="0809"
									| substr(&apcvar.2 ,2,4)="9137" | substr(&apcvar.2 ,2,4)="0809"
									| substr(&apcvar.3 ,2,4)="9137" | substr(&apcvar.3 ,2,4)="0809"
									| substr(&apcvar.4 ,2,4)="9137" | substr(&apcvar.4 ,2,4)="0809"
									| substr(&apcvar.5 ,2,4)="9137" | substr(&apcvar.5 ,2,4)="0809"
									| substr(&apcvar.6 ,2,4)="9137" | substr(&apcvar.6 ,2,4)="0809"
									| substr(&apcvar.7 ,2,4)="9137" | substr(&apcvar.7 ,2,4)="0809"
									| substr(&apcvar.8 ,2,4)="9137" | substr(&apcvar.8 ,2,4)="0809"
									| substr(&apcvar.9 ,2,4)="9137" | substr(&apcvar.9 ,2,4)="0809"
									| substr(&apcvar.10,2,4)="9137" | substr(&apcvar.10,2,4)="0809"
									| substr(&apcvar.11,2,4)="9137" | substr(&apcvar.11,2,4)="0809"
									| substr(&apcvar.12,2,4)="9137" | substr(&apcvar.12,2,4)="0809"
									| substr(&apcvar.13,2,4)="9137" | substr(&apcvar.13,2,4)="0809"
									| substr(&apcvar.14,2,4)="9137" | substr(&apcvar.14,2,4)="0809"
									| substr(&apcvar.15,2,4)="9137" | substr(&apcvar.15,2,4)="0809"
									| substr(&apcvar.16,2,4)="9137" | substr(&apcvar.16,2,4)="0809"
									| substr(&apcvar.17,2,4)="9137" | substr(&apcvar.17,2,4)="0809"
									| substr(&apcvar.18,2,4)="9137" | substr(&apcvar.18,2,4)="0809"
									| substr(&apcvar.19,2,4)="9137" | substr(&apcvar.19,2,4)="0809"
									| substr(&apcvar.20,2,4)="9137" | substr(&apcvar.20,2,4)="0809"
									| substr(&apcvar.21,2,4)="9137" | substr(&apcvar.21,2,4)="0809"
									| substr(&apcvar.22,2,4)="9137" | substr(&apcvar.22,2,4)="0809"
									| substr(&apcvar.23,2,4)="9137" | substr(&apcvar.23,2,4)="0809"
									| substr(&apcvar.24,2,4)="9137" | substr(&apcvar.24,2,4)="0809"
									| substr(&apcvar.25,2,4)="9137" | substr(&apcvar.25,2,4)="0809"
									| substr(&apcvar.26,2,4)="9137" | substr(&apcvar.26,2,4)="0809"
									| substr(&apcvar.27,2,4)="9137" | substr(&apcvar.27,2,4)="0809"
									| substr(&apcvar.28,2,4)="9137" | substr(&apcvar.28,2,4)="0809"
									| substr(&apcvar.29,2,4)="9137" | substr(&apcvar.29,2,4)="0809"
									| substr(&apcvar.30,2,4)="9137" | substr(&apcvar.30,2,4)="0809"
									| substr(&apcvar.31,2,4)="9137" | substr(&apcvar.31,2,4)="0809"
									| substr(&apcvar.32,2,4)="9137" | substr(&apcvar.32,2,4)="0809"
									| substr(&apcvar.33,2,4)="9137" | substr(&apcvar.33,2,4)="0809"
									| substr(&apcvar.34,2,4)="9137" | substr(&apcvar.34,2,4)="0809"
									| substr(&apcvar.35,2,4)="9137" | substr(&apcvar.35,2,4)="0809"
									| substr(&apcvar.36,2,4)="9137" | substr(&apcvar.36,2,4)="0809"
									| substr(&apcvar.37,2,4)="9137" | substr(&apcvar.37,2,4)="0809"
									| substr(&apcvar.38,2,4)="9137" | substr(&apcvar.38,2,4)="0809"
									| substr(&apcvar.39,2,4)="9137" | substr(&apcvar.39,2,4)="0809"
									| substr(&apcvar.40,2,4)="9137" | substr(&apcvar.40,2,4)="0809"
									| substr(&apcvar.41,2,4)="9137" | substr(&apcvar.41,2,4)="0809"
									| substr(&apcvar.42,2,4)="9137" | substr(&apcvar.42,2,4)="0809"
									| substr(&apcvar.43,2,4)="9137" | substr(&apcvar.43,2,4)="0809"
									| substr(&apcvar.44,2,4)="9137" | substr(&apcvar.44,2,4)="0809"
									| substr(&apcvar.45,2,4)="9137" | substr(&apcvar.45,2,4)="0809";
				chem_gemtuzumab 	= &hcpcsvar.1 ="J9300" | &hcpcsvar.1 ="C9004"
									| &hcpcsvar.2 ="J9300" | &hcpcsvar.2 ="C9004"
									| &hcpcsvar.3 ="J9300" | &hcpcsvar.3 ="C9004"
									| &hcpcsvar.4 ="J9300" | &hcpcsvar.4 ="C9004"
									| &hcpcsvar.5 ="J9300" | &hcpcsvar.5 ="C9004"
									| &hcpcsvar.6 ="J9300" | &hcpcsvar.6 ="C9004"
									| &hcpcsvar.7 ="J9300" | &hcpcsvar.7 ="C9004"
									| &hcpcsvar.8 ="J9300" | &hcpcsvar.8 ="C9004"
									| &hcpcsvar.9 ="J9300" | &hcpcsvar.9 ="C9004"
									| &hcpcsvar.10="J9300" | &hcpcsvar.10="C9004"
									| &hcpcsvar.11="J9300" | &hcpcsvar.11="C9004"
									| &hcpcsvar.12="J9300" | &hcpcsvar.12="C9004"
									| &hcpcsvar.13="J9300" | &hcpcsvar.13="C9004"
									| &hcpcsvar.14="J9300" | &hcpcsvar.14="C9004"
									| &hcpcsvar.15="J9300" | &hcpcsvar.15="C9004"
									| &hcpcsvar.16="J9300" | &hcpcsvar.16="C9004"
									| &hcpcsvar.17="J9300" | &hcpcsvar.17="C9004"
									| &hcpcsvar.18="J9300" | &hcpcsvar.18="C9004"
									| &hcpcsvar.19="J9300" | &hcpcsvar.19="C9004"
									| &hcpcsvar.20="J9300" | &hcpcsvar.20="C9004"
									| &hcpcsvar.21="J9300" | &hcpcsvar.21="C9004"
									| &hcpcsvar.22="J9300" | &hcpcsvar.22="C9004"
									| &hcpcsvar.23="J9300" | &hcpcsvar.23="C9004"
									| &hcpcsvar.24="J9300" | &hcpcsvar.24="C9004"
									| &hcpcsvar.25="J9300" | &hcpcsvar.25="C9004"
									| &hcpcsvar.26="J9300" | &hcpcsvar.26="C9004"
									| &hcpcsvar.27="J9300" | &hcpcsvar.27="C9004"
									| &hcpcsvar.28="J9300" | &hcpcsvar.28="C9004"
									| &hcpcsvar.29="J9300" | &hcpcsvar.29="C9004"
									| &hcpcsvar.30="J9300" | &hcpcsvar.30="C9004"
									| &hcpcsvar.31="J9300" | &hcpcsvar.31="C9004"
									| &hcpcsvar.32="J9300" | &hcpcsvar.32="C9004"
									| &hcpcsvar.33="J9300" | &hcpcsvar.33="C9004"
									| &hcpcsvar.34="J9300" | &hcpcsvar.34="C9004"
									| &hcpcsvar.35="J9300" | &hcpcsvar.35="C9004"
									| &hcpcsvar.36="J9300" | &hcpcsvar.36="C9004"
									| &hcpcsvar.37="J9300" | &hcpcsvar.37="C9004"
									| &hcpcsvar.38="J9300" | &hcpcsvar.38="C9004"
									| &hcpcsvar.39="J9300" | &hcpcsvar.39="C9004"
									| &hcpcsvar.40="J9300" | &hcpcsvar.40="C9004"
									| &hcpcsvar.41="J9300" | &hcpcsvar.41="C9004"
									| &hcpcsvar.42="J9300" | &hcpcsvar.42="C9004"
									| &hcpcsvar.43="J9300" | &hcpcsvar.43="C9004"
									| &hcpcsvar.44="J9300" | &hcpcsvar.44="C9004"
									| &hcpcsvar.45="J9300" | &hcpcsvar.45="C9004"
									| substr(&apcvar.1 ,2,4)="9004"
									| substr(&apcvar.2 ,2,4)="9004"
									| substr(&apcvar.3 ,2,4)="9004"
									| substr(&apcvar.4 ,2,4)="9004"
									| substr(&apcvar.5 ,2,4)="9004"
									| substr(&apcvar.6 ,2,4)="9004"
									| substr(&apcvar.7 ,2,4)="9004"
									| substr(&apcvar.8 ,2,4)="9004"
									| substr(&apcvar.9 ,2,4)="9004"
									| substr(&apcvar.10,2,4)="9004"
									| substr(&apcvar.11,2,4)="9004"
									| substr(&apcvar.12,2,4)="9004"
									| substr(&apcvar.13,2,4)="9004"
									| substr(&apcvar.14,2,4)="9004"
									| substr(&apcvar.15,2,4)="9004"
									| substr(&apcvar.16,2,4)="9004"
									| substr(&apcvar.17,2,4)="9004"
									| substr(&apcvar.18,2,4)="9004"
									| substr(&apcvar.19,2,4)="9004"
									| substr(&apcvar.20,2,4)="9004"
									| substr(&apcvar.21,2,4)="9004"
									| substr(&apcvar.22,2,4)="9004"
									| substr(&apcvar.23,2,4)="9004"
									| substr(&apcvar.24,2,4)="9004"
									| substr(&apcvar.25,2,4)="9004"
									| substr(&apcvar.26,2,4)="9004"
									| substr(&apcvar.27,2,4)="9004"
									| substr(&apcvar.28,2,4)="9004"
									| substr(&apcvar.29,2,4)="9004"
									| substr(&apcvar.30,2,4)="9004"
									| substr(&apcvar.31,2,4)="9004"
									| substr(&apcvar.32,2,4)="9004"
									| substr(&apcvar.33,2,4)="9004"
									| substr(&apcvar.34,2,4)="9004"
									| substr(&apcvar.35,2,4)="9004"
									| substr(&apcvar.36,2,4)="9004"
									| substr(&apcvar.37,2,4)="9004"
									| substr(&apcvar.38,2,4)="9004"
									| substr(&apcvar.39,2,4)="9004"
									| substr(&apcvar.40,2,4)="9004"
									| substr(&apcvar.41,2,4)="9004"
									| substr(&apcvar.42,2,4)="9004"
									| substr(&apcvar.43,2,4)="9004"
									| substr(&apcvar.44,2,4)="9004"
									| substr(&apcvar.45,2,4)="9004";
				chem_triptorelin 	= &hcpcsvar.1 ="J3315"
									| &hcpcsvar.2 ="J3315"
									| &hcpcsvar.3 ="J3315"
									| &hcpcsvar.4 ="J3315"
									| &hcpcsvar.5 ="J3315"
									| &hcpcsvar.6 ="J3315"
									| &hcpcsvar.7 ="J3315"
									| &hcpcsvar.8 ="J3315"
									| &hcpcsvar.9 ="J3315"
									| &hcpcsvar.10="J3315"
									| &hcpcsvar.11="J3315"
									| &hcpcsvar.12="J3315"
									| &hcpcsvar.13="J3315"
									| &hcpcsvar.14="J3315"
									| &hcpcsvar.15="J3315"
									| &hcpcsvar.16="J3315"
									| &hcpcsvar.17="J3315"
									| &hcpcsvar.18="J3315"
									| &hcpcsvar.19="J3315"
									| &hcpcsvar.20="J3315"
									| &hcpcsvar.21="J3315"
									| &hcpcsvar.22="J3315"
									| &hcpcsvar.23="J3315"
									| &hcpcsvar.24="J3315"
									| &hcpcsvar.25="J3315"
									| &hcpcsvar.26="J3315"
									| &hcpcsvar.27="J3315"
									| &hcpcsvar.28="J3315"
									| &hcpcsvar.29="J3315"
									| &hcpcsvar.30="J3315"
									| &hcpcsvar.31="J3315"
									| &hcpcsvar.32="J3315"
									| &hcpcsvar.33="J3315"
									| &hcpcsvar.34="J3315"
									| &hcpcsvar.35="J3315"
									| &hcpcsvar.36="J3315"
									| &hcpcsvar.37="J3315"
									| &hcpcsvar.38="J3315"
									| &hcpcsvar.39="J3315"
									| &hcpcsvar.40="J3315"
									| &hcpcsvar.41="J3315"
									| &hcpcsvar.42="J3315"
									| &hcpcsvar.43="J3315"
									| &hcpcsvar.44="J3315"
									| &hcpcsvar.45="J3315"
									| substr(&apcvar.1 ,2,4)="9122"
									| substr(&apcvar.2 ,2,4)="9122"
									| substr(&apcvar.3 ,2,4)="9122"
									| substr(&apcvar.4 ,2,4)="9122"
									| substr(&apcvar.5 ,2,4)="9122"
									| substr(&apcvar.6 ,2,4)="9122"
									| substr(&apcvar.7 ,2,4)="9122"
									| substr(&apcvar.8 ,2,4)="9122"
									| substr(&apcvar.9 ,2,4)="9122"
									| substr(&apcvar.10,2,4)="9122"
									| substr(&apcvar.11,2,4)="9122"
									| substr(&apcvar.12,2,4)="9122"
									| substr(&apcvar.13,2,4)="9122"
									| substr(&apcvar.14,2,4)="9122"
									| substr(&apcvar.15,2,4)="9122"
									| substr(&apcvar.16,2,4)="9122"
									| substr(&apcvar.17,2,4)="9122"
									| substr(&apcvar.18,2,4)="9122"
									| substr(&apcvar.19,2,4)="9122"
									| substr(&apcvar.20,2,4)="9122"
									| substr(&apcvar.21,2,4)="9122"
									| substr(&apcvar.22,2,4)="9122"
									| substr(&apcvar.23,2,4)="9122"
									| substr(&apcvar.24,2,4)="9122"
									| substr(&apcvar.25,2,4)="9122"
									| substr(&apcvar.26,2,4)="9122"
									| substr(&apcvar.27,2,4)="9122"
									| substr(&apcvar.28,2,4)="9122"
									| substr(&apcvar.29,2,4)="9122"
									| substr(&apcvar.30,2,4)="9122"
									| substr(&apcvar.31,2,4)="9122"
									| substr(&apcvar.32,2,4)="9122"
									| substr(&apcvar.33,2,4)="9122"
									| substr(&apcvar.34,2,4)="9122"
									| substr(&apcvar.35,2,4)="9122"
									| substr(&apcvar.36,2,4)="9122"
									| substr(&apcvar.37,2,4)="9122"
									| substr(&apcvar.38,2,4)="9122"
									| substr(&apcvar.39,2,4)="9122"
									| substr(&apcvar.40,2,4)="9122"
									| substr(&apcvar.41,2,4)="9122"
									| substr(&apcvar.42,2,4)="9122"
									| substr(&apcvar.43,2,4)="9122"
									| substr(&apcvar.44,2,4)="9122"
									| substr(&apcvar.45,2,4)="9122";
				chem_arsenic 		= &hcpcsvar.1 ="J9017" | &hcpcsvar.1 ="C9012"
									| &hcpcsvar.2 ="J9017" | &hcpcsvar.2 ="C9012"
									| &hcpcsvar.3 ="J9017" | &hcpcsvar.3 ="C9012"
									| &hcpcsvar.4 ="J9017" | &hcpcsvar.4 ="C9012"
									| &hcpcsvar.5 ="J9017" | &hcpcsvar.5 ="C9012"
									| &hcpcsvar.6 ="J9017" | &hcpcsvar.6 ="C9012"
									| &hcpcsvar.7 ="J9017" | &hcpcsvar.7 ="C9012"
									| &hcpcsvar.8 ="J9017" | &hcpcsvar.8 ="C9012"
									| &hcpcsvar.9 ="J9017" | &hcpcsvar.9 ="C9012"
									| &hcpcsvar.10="J9017" | &hcpcsvar.10="C9012"
									| &hcpcsvar.11="J9017" | &hcpcsvar.11="C9012"
									| &hcpcsvar.12="J9017" | &hcpcsvar.12="C9012"
									| &hcpcsvar.13="J9017" | &hcpcsvar.13="C9012"
									| &hcpcsvar.14="J9017" | &hcpcsvar.14="C9012"
									| &hcpcsvar.15="J9017" | &hcpcsvar.15="C9012"
									| &hcpcsvar.16="J9017" | &hcpcsvar.16="C9012"
									| &hcpcsvar.17="J9017" | &hcpcsvar.17="C9012"
									| &hcpcsvar.18="J9017" | &hcpcsvar.18="C9012"
									| &hcpcsvar.19="J9017" | &hcpcsvar.19="C9012"
									| &hcpcsvar.20="J9017" | &hcpcsvar.20="C9012"
									| &hcpcsvar.21="J9017" | &hcpcsvar.21="C9012"
									| &hcpcsvar.22="J9017" | &hcpcsvar.22="C9012"
									| &hcpcsvar.23="J9017" | &hcpcsvar.23="C9012"
									| &hcpcsvar.24="J9017" | &hcpcsvar.24="C9012"
									| &hcpcsvar.25="J9017" | &hcpcsvar.25="C9012"
									| &hcpcsvar.26="J9017" | &hcpcsvar.26="C9012"
									| &hcpcsvar.27="J9017" | &hcpcsvar.27="C9012"
									| &hcpcsvar.28="J9017" | &hcpcsvar.28="C9012"
									| &hcpcsvar.29="J9017" | &hcpcsvar.29="C9012"
									| &hcpcsvar.30="J9017" | &hcpcsvar.30="C9012"
									| &hcpcsvar.31="J9017" | &hcpcsvar.31="C9012"
									| &hcpcsvar.32="J9017" | &hcpcsvar.32="C9012"
									| &hcpcsvar.33="J9017" | &hcpcsvar.33="C9012"
									| &hcpcsvar.34="J9017" | &hcpcsvar.34="C9012"
									| &hcpcsvar.35="J9017" | &hcpcsvar.35="C9012"
									| &hcpcsvar.36="J9017" | &hcpcsvar.36="C9012"
									| &hcpcsvar.37="J9017" | &hcpcsvar.37="C9012"
									| &hcpcsvar.38="J9017" | &hcpcsvar.38="C9012"
									| &hcpcsvar.39="J9017" | &hcpcsvar.39="C9012"
									| &hcpcsvar.40="J9017" | &hcpcsvar.40="C9012"
									| &hcpcsvar.41="J9017" | &hcpcsvar.41="C9012"
									| &hcpcsvar.42="J9017" | &hcpcsvar.42="C9012"
									| &hcpcsvar.43="J9017" | &hcpcsvar.43="C9012"
									| &hcpcsvar.44="J9017" | &hcpcsvar.44="C9012"
									| &hcpcsvar.45="J9017" | &hcpcsvar.45="C9012"
									| substr(&apcvar.1 ,2,4)="9012"
									| substr(&apcvar.2 ,2,4)="9012"
									| substr(&apcvar.3 ,2,4)="9012"
									| substr(&apcvar.4 ,2,4)="9012"
									| substr(&apcvar.5 ,2,4)="9012"
									| substr(&apcvar.6 ,2,4)="9012"
									| substr(&apcvar.7 ,2,4)="9012"
									| substr(&apcvar.8 ,2,4)="9012"
									| substr(&apcvar.9 ,2,4)="9012"
									| substr(&apcvar.10,2,4)="9012"
									| substr(&apcvar.11,2,4)="9012"
									| substr(&apcvar.12,2,4)="9012"
									| substr(&apcvar.13,2,4)="9012"
									| substr(&apcvar.14,2,4)="9012"
									| substr(&apcvar.15,2,4)="9012"
									| substr(&apcvar.16,2,4)="9012"
									| substr(&apcvar.17,2,4)="9012"
									| substr(&apcvar.18,2,4)="9012"
									| substr(&apcvar.19,2,4)="9012"
									| substr(&apcvar.20,2,4)="9012"
									| substr(&apcvar.21,2,4)="9012"
									| substr(&apcvar.22,2,4)="9012"
									| substr(&apcvar.23,2,4)="9012"
									| substr(&apcvar.24,2,4)="9012"
									| substr(&apcvar.25,2,4)="9012"
									| substr(&apcvar.26,2,4)="9012"
									| substr(&apcvar.27,2,4)="9012"
									| substr(&apcvar.28,2,4)="9012"
									| substr(&apcvar.29,2,4)="9012"
									| substr(&apcvar.30,2,4)="9012"
									| substr(&apcvar.31,2,4)="9012"
									| substr(&apcvar.32,2,4)="9012"
									| substr(&apcvar.33,2,4)="9012"
									| substr(&apcvar.34,2,4)="9012"
									| substr(&apcvar.35,2,4)="9012"
									| substr(&apcvar.36,2,4)="9012"
									| substr(&apcvar.37,2,4)="9012"
									| substr(&apcvar.38,2,4)="9012"
									| substr(&apcvar.39,2,4)="9012"
									| substr(&apcvar.40,2,4)="9012"
									| substr(&apcvar.41,2,4)="9012"
									| substr(&apcvar.42,2,4)="9012"
									| substr(&apcvar.43,2,4)="9012"
									| substr(&apcvar.44,2,4)="9012"
									| substr(&apcvar.45,2,4)="9012";
				chem_alemtuzumab 	= &hcpcsvar.1 ="J9010" | &hcpcsvar.1 ="C9110"
									| &hcpcsvar.2 ="J9010" | &hcpcsvar.2 ="C9110"
									| &hcpcsvar.3 ="J9010" | &hcpcsvar.3 ="C9110"
									| &hcpcsvar.4 ="J9010" | &hcpcsvar.4 ="C9110"
									| &hcpcsvar.5 ="J9010" | &hcpcsvar.5 ="C9110"
									| &hcpcsvar.6 ="J9010" | &hcpcsvar.6 ="C9110"
									| &hcpcsvar.7 ="J9010" | &hcpcsvar.7 ="C9110"
									| &hcpcsvar.8 ="J9010" | &hcpcsvar.8 ="C9110"
									| &hcpcsvar.9 ="J9010" | &hcpcsvar.9 ="C9110"
									| &hcpcsvar.10="J9010" | &hcpcsvar.10="C9110"
									| &hcpcsvar.11="J9010" | &hcpcsvar.11="C9110"
									| &hcpcsvar.12="J9010" | &hcpcsvar.12="C9110"
									| &hcpcsvar.13="J9010" | &hcpcsvar.13="C9110"
									| &hcpcsvar.14="J9010" | &hcpcsvar.14="C9110"
									| &hcpcsvar.15="J9010" | &hcpcsvar.15="C9110"
									| &hcpcsvar.16="J9010" | &hcpcsvar.16="C9110"
									| &hcpcsvar.17="J9010" | &hcpcsvar.17="C9110"
									| &hcpcsvar.18="J9010" | &hcpcsvar.18="C9110"
									| &hcpcsvar.19="J9010" | &hcpcsvar.19="C9110"
									| &hcpcsvar.20="J9010" | &hcpcsvar.20="C9110"
									| &hcpcsvar.21="J9010" | &hcpcsvar.21="C9110"
									| &hcpcsvar.22="J9010" | &hcpcsvar.22="C9110"
									| &hcpcsvar.23="J9010" | &hcpcsvar.23="C9110"
									| &hcpcsvar.24="J9010" | &hcpcsvar.24="C9110"
									| &hcpcsvar.25="J9010" | &hcpcsvar.25="C9110"
									| &hcpcsvar.26="J9010" | &hcpcsvar.26="C9110"
									| &hcpcsvar.27="J9010" | &hcpcsvar.27="C9110"
									| &hcpcsvar.28="J9010" | &hcpcsvar.28="C9110"
									| &hcpcsvar.29="J9010" | &hcpcsvar.29="C9110"
									| &hcpcsvar.30="J9010" | &hcpcsvar.30="C9110"
									| &hcpcsvar.31="J9010" | &hcpcsvar.31="C9110"
									| &hcpcsvar.32="J9010" | &hcpcsvar.32="C9110"
									| &hcpcsvar.33="J9010" | &hcpcsvar.33="C9110"
									| &hcpcsvar.34="J9010" | &hcpcsvar.34="C9110"
									| &hcpcsvar.35="J9010" | &hcpcsvar.35="C9110"
									| &hcpcsvar.36="J9010" | &hcpcsvar.36="C9110"
									| &hcpcsvar.37="J9010" | &hcpcsvar.37="C9110"
									| &hcpcsvar.38="J9010" | &hcpcsvar.38="C9110"
									| &hcpcsvar.39="J9010" | &hcpcsvar.39="C9110"
									| &hcpcsvar.40="J9010" | &hcpcsvar.40="C9110"
									| &hcpcsvar.41="J9010" | &hcpcsvar.41="C9110"
									| &hcpcsvar.42="J9010" | &hcpcsvar.42="C9110"
									| &hcpcsvar.43="J9010" | &hcpcsvar.43="C9110"
									| &hcpcsvar.44="J9010" | &hcpcsvar.44="C9110"
									| &hcpcsvar.45="J9010" | &hcpcsvar.45="C9110"
									| substr(&apcvar.1 ,2,4)="9110"
									| substr(&apcvar.2 ,2,4)="9110"
									| substr(&apcvar.3 ,2,4)="9110"
									| substr(&apcvar.4 ,2,4)="9110"
									| substr(&apcvar.5 ,2,4)="9110"
									| substr(&apcvar.6 ,2,4)="9110"
									| substr(&apcvar.7 ,2,4)="9110"
									| substr(&apcvar.8 ,2,4)="9110"
									| substr(&apcvar.9 ,2,4)="9110"
									| substr(&apcvar.10,2,4)="9110"
									| substr(&apcvar.11,2,4)="9110"
									| substr(&apcvar.12,2,4)="9110"
									| substr(&apcvar.13,2,4)="9110"
									| substr(&apcvar.14,2,4)="9110"
									| substr(&apcvar.15,2,4)="9110"
									| substr(&apcvar.16,2,4)="9110"
									| substr(&apcvar.17,2,4)="9110"
									| substr(&apcvar.18,2,4)="9110"
									| substr(&apcvar.19,2,4)="9110"
									| substr(&apcvar.20,2,4)="9110"
									| substr(&apcvar.21,2,4)="9110"
									| substr(&apcvar.22,2,4)="9110"
									| substr(&apcvar.23,2,4)="9110"
									| substr(&apcvar.24,2,4)="9110"
									| substr(&apcvar.25,2,4)="9110"
									| substr(&apcvar.26,2,4)="9110"
									| substr(&apcvar.27,2,4)="9110"
									| substr(&apcvar.28,2,4)="9110"
									| substr(&apcvar.29,2,4)="9110"
									| substr(&apcvar.30,2,4)="9110"
									| substr(&apcvar.31,2,4)="9110"
									| substr(&apcvar.32,2,4)="9110"
									| substr(&apcvar.33,2,4)="9110"
									| substr(&apcvar.34,2,4)="9110"
									| substr(&apcvar.35,2,4)="9110"
									| substr(&apcvar.36,2,4)="9110"
									| substr(&apcvar.37,2,4)="9110"
									| substr(&apcvar.38,2,4)="9110"
									| substr(&apcvar.39,2,4)="9110"
									| substr(&apcvar.40,2,4)="9110"
									| substr(&apcvar.41,2,4)="9110"
									| substr(&apcvar.42,2,4)="9110"
									| substr(&apcvar.43,2,4)="9110"
									| substr(&apcvar.44,2,4)="9110"
									| substr(&apcvar.45,2,4)="9110";
				chem_zoledronic 	= &hcpcsvar.1 ="J3487"
									| &hcpcsvar.2 ="J3487"
									| &hcpcsvar.3 ="J3487"
									| &hcpcsvar.4 ="J3487"
									| &hcpcsvar.5 ="J3487"
									| &hcpcsvar.6 ="J3487"
									| &hcpcsvar.7 ="J3487"
									| &hcpcsvar.8 ="J3487"
									| &hcpcsvar.9 ="J3487"
									| &hcpcsvar.10="J3487"
									| &hcpcsvar.11="J3487"
									| &hcpcsvar.12="J3487"
									| &hcpcsvar.13="J3487"
									| &hcpcsvar.14="J3487"
									| &hcpcsvar.15="J3487"
									| &hcpcsvar.16="J3487"
									| &hcpcsvar.17="J3487"
									| &hcpcsvar.18="J3487"
									| &hcpcsvar.19="J3487"
									| &hcpcsvar.20="J3487"
									| &hcpcsvar.21="J3487"
									| &hcpcsvar.22="J3487"
									| &hcpcsvar.23="J3487"
									| &hcpcsvar.24="J3487"
									| &hcpcsvar.25="J3487"
									| &hcpcsvar.26="J3487"
									| &hcpcsvar.27="J3487"
									| &hcpcsvar.28="J3487"
									| &hcpcsvar.29="J3487"
									| &hcpcsvar.30="J3487"
									| &hcpcsvar.31="J3487"
									| &hcpcsvar.32="J3487"
									| &hcpcsvar.33="J3487"
									| &hcpcsvar.34="J3487"
									| &hcpcsvar.35="J3487"
									| &hcpcsvar.36="J3487"
									| &hcpcsvar.37="J3487"
									| &hcpcsvar.38="J3487"
									| &hcpcsvar.39="J3487"
									| &hcpcsvar.40="J3487"
									| &hcpcsvar.41="J3487"
									| &hcpcsvar.42="J3487"
									| &hcpcsvar.43="J3487"
									| &hcpcsvar.44="J3487"
									| &hcpcsvar.45="J3487"
									| substr(&apcvar.1 ,2,4)="9115"
									| substr(&apcvar.2 ,2,4)="9115"
									| substr(&apcvar.3 ,2,4)="9115"
									| substr(&apcvar.4 ,2,4)="9115"
									| substr(&apcvar.5 ,2,4)="9115"
									| substr(&apcvar.6 ,2,4)="9115"
									| substr(&apcvar.7 ,2,4)="9115"
									| substr(&apcvar.8 ,2,4)="9115"
									| substr(&apcvar.9 ,2,4)="9115"
									| substr(&apcvar.10,2,4)="9115"
									| substr(&apcvar.11,2,4)="9115"
									| substr(&apcvar.12,2,4)="9115"
									| substr(&apcvar.13,2,4)="9115"
									| substr(&apcvar.14,2,4)="9115"
									| substr(&apcvar.15,2,4)="9115"
									| substr(&apcvar.16,2,4)="9115"
									| substr(&apcvar.17,2,4)="9115"
									| substr(&apcvar.18,2,4)="9115"
									| substr(&apcvar.19,2,4)="9115"
									| substr(&apcvar.20,2,4)="9115"
									| substr(&apcvar.21,2,4)="9115"
									| substr(&apcvar.22,2,4)="9115"
									| substr(&apcvar.23,2,4)="9115"
									| substr(&apcvar.24,2,4)="9115"
									| substr(&apcvar.25,2,4)="9115"
									| substr(&apcvar.26,2,4)="9115"
									| substr(&apcvar.27,2,4)="9115"
									| substr(&apcvar.28,2,4)="9115"
									| substr(&apcvar.29,2,4)="9115"
									| substr(&apcvar.30,2,4)="9115"
									| substr(&apcvar.31,2,4)="9115"
									| substr(&apcvar.32,2,4)="9115"
									| substr(&apcvar.33,2,4)="9115"
									| substr(&apcvar.34,2,4)="9115"
									| substr(&apcvar.35,2,4)="9115"
									| substr(&apcvar.36,2,4)="9115"
									| substr(&apcvar.37,2,4)="9115"
									| substr(&apcvar.38,2,4)="9115"
									| substr(&apcvar.39,2,4)="9115"
									| substr(&apcvar.40,2,4)="9115"
									| substr(&apcvar.41,2,4)="9115"
									| substr(&apcvar.42,2,4)="9115"
									| substr(&apcvar.43,2,4)="9115"
									| substr(&apcvar.44,2,4)="9115"
									| substr(&apcvar.45,2,4)="9115";
				chem_ibritumomab 	= &hcpcsvar.1 ="A9542" | &hcpcsvar.1 ="A9543" | &hcpcsvar.1 ="C1082" | &hcpcsvar.1 ="C9117" | &hcpcsvar.1 ="A9522"
									| &hcpcsvar.2 ="A9542" | &hcpcsvar.2 ="A9543" | &hcpcsvar.2 ="C1082" | &hcpcsvar.2 ="C9117" | &hcpcsvar.2 ="A9522"
									| &hcpcsvar.3 ="A9542" | &hcpcsvar.3 ="A9543" | &hcpcsvar.3 ="C1082" | &hcpcsvar.3 ="C9117" | &hcpcsvar.3 ="A9522"
									| &hcpcsvar.4 ="A9542" | &hcpcsvar.4 ="A9543" | &hcpcsvar.4 ="C1082" | &hcpcsvar.4 ="C9117" | &hcpcsvar.4 ="A9522"
									| &hcpcsvar.5 ="A9542" | &hcpcsvar.5 ="A9543" | &hcpcsvar.5 ="C1082" | &hcpcsvar.5 ="C9117" | &hcpcsvar.5 ="A9522"
									| &hcpcsvar.6 ="A9542" | &hcpcsvar.6 ="A9543" | &hcpcsvar.6 ="C1082" | &hcpcsvar.6 ="C9117" | &hcpcsvar.6 ="A9522"
									| &hcpcsvar.7 ="A9542" | &hcpcsvar.7 ="A9543" | &hcpcsvar.7 ="C1082" | &hcpcsvar.7 ="C9117" | &hcpcsvar.7 ="A9522"
									| &hcpcsvar.8 ="A9542" | &hcpcsvar.8 ="A9543" | &hcpcsvar.8 ="C1082" | &hcpcsvar.8 ="C9117" | &hcpcsvar.8 ="A9522"
									| &hcpcsvar.9 ="A9542" | &hcpcsvar.9 ="A9543" | &hcpcsvar.9 ="C1082" | &hcpcsvar.9 ="C9117" | &hcpcsvar.9 ="A9522"
									| &hcpcsvar.10="A9542" | &hcpcsvar.10="A9543" | &hcpcsvar.10="C1082" | &hcpcsvar.10="C9117" | &hcpcsvar.10="A9522"
									| &hcpcsvar.11="A9542" | &hcpcsvar.11="A9543" | &hcpcsvar.11="C1082" | &hcpcsvar.11="C9117" | &hcpcsvar.11="A9522"
									| &hcpcsvar.12="A9542" | &hcpcsvar.12="A9543" | &hcpcsvar.12="C1082" | &hcpcsvar.12="C9117" | &hcpcsvar.12="A9522"
									| &hcpcsvar.13="A9542" | &hcpcsvar.13="A9543" | &hcpcsvar.13="C1082" | &hcpcsvar.13="C9117" | &hcpcsvar.13="A9522"
									| &hcpcsvar.14="A9542" | &hcpcsvar.14="A9543" | &hcpcsvar.14="C1082" | &hcpcsvar.14="C9117" | &hcpcsvar.14="A9522"
									| &hcpcsvar.15="A9542" | &hcpcsvar.15="A9543" | &hcpcsvar.15="C1082" | &hcpcsvar.15="C9117" | &hcpcsvar.15="A9522"
									| &hcpcsvar.16="A9542" | &hcpcsvar.16="A9543" | &hcpcsvar.16="C1082" | &hcpcsvar.16="C9117" | &hcpcsvar.16="A9522"
									| &hcpcsvar.17="A9542" | &hcpcsvar.17="A9543" | &hcpcsvar.17="C1082" | &hcpcsvar.17="C9117" | &hcpcsvar.17="A9522"
									| &hcpcsvar.18="A9542" | &hcpcsvar.18="A9543" | &hcpcsvar.18="C1082" | &hcpcsvar.18="C9117" | &hcpcsvar.18="A9522"
									| &hcpcsvar.19="A9542" | &hcpcsvar.19="A9543" | &hcpcsvar.19="C1082" | &hcpcsvar.19="C9117" | &hcpcsvar.19="A9522"
									| &hcpcsvar.20="A9542" | &hcpcsvar.20="A9543" | &hcpcsvar.20="C1082" | &hcpcsvar.20="C9117" | &hcpcsvar.20="A9522"
									| &hcpcsvar.21="A9542" | &hcpcsvar.21="A9543" | &hcpcsvar.21="C1082" | &hcpcsvar.21="C9117" | &hcpcsvar.21="A9522"
									| &hcpcsvar.22="A9542" | &hcpcsvar.22="A9543" | &hcpcsvar.22="C1082" | &hcpcsvar.22="C9117" | &hcpcsvar.22="A9522"
									| &hcpcsvar.23="A9542" | &hcpcsvar.23="A9543" | &hcpcsvar.23="C1082" | &hcpcsvar.23="C9117" | &hcpcsvar.23="A9522"
									| &hcpcsvar.24="A9542" | &hcpcsvar.24="A9543" | &hcpcsvar.24="C1082" | &hcpcsvar.24="C9117" | &hcpcsvar.24="A9522"
									| &hcpcsvar.25="A9542" | &hcpcsvar.25="A9543" | &hcpcsvar.25="C1082" | &hcpcsvar.25="C9117" | &hcpcsvar.25="A9522"
									| &hcpcsvar.26="A9542" | &hcpcsvar.26="A9543" | &hcpcsvar.26="C1082" | &hcpcsvar.26="C9117" | &hcpcsvar.26="A9522"
									| &hcpcsvar.27="A9542" | &hcpcsvar.27="A9543" | &hcpcsvar.27="C1082" | &hcpcsvar.27="C9117" | &hcpcsvar.27="A9522"
									| &hcpcsvar.28="A9542" | &hcpcsvar.28="A9543" | &hcpcsvar.28="C1082" | &hcpcsvar.28="C9117" | &hcpcsvar.28="A9522"
									| &hcpcsvar.29="A9542" | &hcpcsvar.29="A9543" | &hcpcsvar.29="C1082" | &hcpcsvar.29="C9117" | &hcpcsvar.29="A9522"
									| &hcpcsvar.30="A9542" | &hcpcsvar.30="A9543" | &hcpcsvar.30="C1082" | &hcpcsvar.30="C9117" | &hcpcsvar.30="A9522"
									| &hcpcsvar.31="A9542" | &hcpcsvar.31="A9543" | &hcpcsvar.31="C1082" | &hcpcsvar.31="C9117" | &hcpcsvar.31="A9522"
									| &hcpcsvar.32="A9542" | &hcpcsvar.32="A9543" | &hcpcsvar.32="C1082" | &hcpcsvar.32="C9117" | &hcpcsvar.32="A9522"
									| &hcpcsvar.33="A9542" | &hcpcsvar.33="A9543" | &hcpcsvar.33="C1082" | &hcpcsvar.33="C9117" | &hcpcsvar.33="A9522"
									| &hcpcsvar.34="A9542" | &hcpcsvar.34="A9543" | &hcpcsvar.34="C1082" | &hcpcsvar.34="C9117" | &hcpcsvar.34="A9522"
									| &hcpcsvar.35="A9542" | &hcpcsvar.35="A9543" | &hcpcsvar.35="C1082" | &hcpcsvar.35="C9117" | &hcpcsvar.35="A9522"
									| &hcpcsvar.36="A9542" | &hcpcsvar.36="A9543" | &hcpcsvar.36="C1082" | &hcpcsvar.36="C9117" | &hcpcsvar.36="A9522"
									| &hcpcsvar.37="A9542" | &hcpcsvar.37="A9543" | &hcpcsvar.37="C1082" | &hcpcsvar.37="C9117" | &hcpcsvar.37="A9522"
									| &hcpcsvar.38="A9542" | &hcpcsvar.38="A9543" | &hcpcsvar.38="C1082" | &hcpcsvar.38="C9117" | &hcpcsvar.38="A9522"
									| &hcpcsvar.39="A9542" | &hcpcsvar.39="A9543" | &hcpcsvar.39="C1082" | &hcpcsvar.39="C9117" | &hcpcsvar.39="A9522"
									| &hcpcsvar.40="A9542" | &hcpcsvar.40="A9543" | &hcpcsvar.40="C1082" | &hcpcsvar.40="C9117" | &hcpcsvar.40="A9522"
									| &hcpcsvar.41="A9542" | &hcpcsvar.41="A9543" | &hcpcsvar.41="C1082" | &hcpcsvar.41="C9117" | &hcpcsvar.41="A9522"
									| &hcpcsvar.42="A9542" | &hcpcsvar.42="A9543" | &hcpcsvar.42="C1082" | &hcpcsvar.42="C9117" | &hcpcsvar.42="A9522"
									| &hcpcsvar.43="A9542" | &hcpcsvar.43="A9543" | &hcpcsvar.43="C1082" | &hcpcsvar.43="C9117" | &hcpcsvar.43="A9522"
									| &hcpcsvar.44="A9542" | &hcpcsvar.44="A9543" | &hcpcsvar.44="C1082" | &hcpcsvar.44="C9117" | &hcpcsvar.44="A9522"
									| &hcpcsvar.45="A9542" | &hcpcsvar.45="A9543" | &hcpcsvar.45="C1082" | &hcpcsvar.45="C9117" | &hcpcsvar.45="A9522"
									| substr(&apcvar.1 ,2,4)="1082" | substr(&apcvar.1 ,2,4)="9117" | substr(&apcvar.1 ,2,4)="1642" | substr(&apcvar.1 ,2,4)="1083" | substr(&apcvar.1 ,2,4)="9118" | substr(&apcvar.1 ,2,4)="1643"
									| substr(&apcvar.2 ,2,4)="1082" | substr(&apcvar.2 ,2,4)="9117" | substr(&apcvar.2 ,2,4)="1642" | substr(&apcvar.2 ,2,4)="1083" | substr(&apcvar.2 ,2,4)="9118" | substr(&apcvar.2 ,2,4)="1643"
									| substr(&apcvar.3 ,2,4)="1082" | substr(&apcvar.3 ,2,4)="9117" | substr(&apcvar.3 ,2,4)="1642" | substr(&apcvar.3 ,2,4)="1083" | substr(&apcvar.3 ,2,4)="9118" | substr(&apcvar.3 ,2,4)="1643"
									| substr(&apcvar.4 ,2,4)="1082" | substr(&apcvar.4 ,2,4)="9117" | substr(&apcvar.4 ,2,4)="1642" | substr(&apcvar.4 ,2,4)="1083" | substr(&apcvar.4 ,2,4)="9118" | substr(&apcvar.4 ,2,4)="1643"
									| substr(&apcvar.5 ,2,4)="1082" | substr(&apcvar.5 ,2,4)="9117" | substr(&apcvar.5 ,2,4)="1642" | substr(&apcvar.5 ,2,4)="1083" | substr(&apcvar.5 ,2,4)="9118" | substr(&apcvar.5 ,2,4)="1643"
									| substr(&apcvar.6 ,2,4)="1082" | substr(&apcvar.6 ,2,4)="9117" | substr(&apcvar.6 ,2,4)="1642" | substr(&apcvar.6 ,2,4)="1083" | substr(&apcvar.6 ,2,4)="9118" | substr(&apcvar.6 ,2,4)="1643"
									| substr(&apcvar.7 ,2,4)="1082" | substr(&apcvar.7 ,2,4)="9117" | substr(&apcvar.7 ,2,4)="1642" | substr(&apcvar.7 ,2,4)="1083" | substr(&apcvar.7 ,2,4)="9118" | substr(&apcvar.7 ,2,4)="1643"
									| substr(&apcvar.8 ,2,4)="1082" | substr(&apcvar.8 ,2,4)="9117" | substr(&apcvar.8 ,2,4)="1642" | substr(&apcvar.8 ,2,4)="1083" | substr(&apcvar.8 ,2,4)="9118" | substr(&apcvar.8 ,2,4)="1643"
									| substr(&apcvar.9 ,2,4)="1082" | substr(&apcvar.9 ,2,4)="9117" | substr(&apcvar.9 ,2,4)="1642" | substr(&apcvar.9 ,2,4)="1083" | substr(&apcvar.9 ,2,4)="9118" | substr(&apcvar.9 ,2,4)="1643"
									| substr(&apcvar.10,2,4)="1082" | substr(&apcvar.10,2,4)="9117" | substr(&apcvar.10,2,4)="1642" | substr(&apcvar.10,2,4)="1083" | substr(&apcvar.10,2,4)="9118" | substr(&apcvar.10,2,4)="1643"
									| substr(&apcvar.11,2,4)="1082" | substr(&apcvar.11,2,4)="9117" | substr(&apcvar.11,2,4)="1642" | substr(&apcvar.11,2,4)="1083" | substr(&apcvar.11,2,4)="9118" | substr(&apcvar.11,2,4)="1643"
									| substr(&apcvar.12,2,4)="1082" | substr(&apcvar.12,2,4)="9117" | substr(&apcvar.12,2,4)="1642" | substr(&apcvar.12,2,4)="1083" | substr(&apcvar.12,2,4)="9118" | substr(&apcvar.12,2,4)="1643"
									| substr(&apcvar.13,2,4)="1082" | substr(&apcvar.13,2,4)="9117" | substr(&apcvar.13,2,4)="1642" | substr(&apcvar.13,2,4)="1083" | substr(&apcvar.13,2,4)="9118" | substr(&apcvar.13,2,4)="1643"
									| substr(&apcvar.14,2,4)="1082" | substr(&apcvar.14,2,4)="9117" | substr(&apcvar.14,2,4)="1642" | substr(&apcvar.14,2,4)="1083" | substr(&apcvar.14,2,4)="9118" | substr(&apcvar.14,2,4)="1643"
									| substr(&apcvar.15,2,4)="1082" | substr(&apcvar.15,2,4)="9117" | substr(&apcvar.15,2,4)="1642" | substr(&apcvar.15,2,4)="1083" | substr(&apcvar.15,2,4)="9118" | substr(&apcvar.15,2,4)="1643"
									| substr(&apcvar.16,2,4)="1082" | substr(&apcvar.16,2,4)="9117" | substr(&apcvar.16,2,4)="1642" | substr(&apcvar.16,2,4)="1083" | substr(&apcvar.16,2,4)="9118" | substr(&apcvar.16,2,4)="1643"
									| substr(&apcvar.17,2,4)="1082" | substr(&apcvar.17,2,4)="9117" | substr(&apcvar.17,2,4)="1642" | substr(&apcvar.17,2,4)="1083" | substr(&apcvar.17,2,4)="9118" | substr(&apcvar.17,2,4)="1643"
									| substr(&apcvar.18,2,4)="1082" | substr(&apcvar.18,2,4)="9117" | substr(&apcvar.18,2,4)="1642" | substr(&apcvar.18,2,4)="1083" | substr(&apcvar.18,2,4)="9118" | substr(&apcvar.18,2,4)="1643"
									| substr(&apcvar.19,2,4)="1082" | substr(&apcvar.19,2,4)="9117" | substr(&apcvar.19,2,4)="1642" | substr(&apcvar.19,2,4)="1083" | substr(&apcvar.19,2,4)="9118" | substr(&apcvar.19,2,4)="1643"
									| substr(&apcvar.20,2,4)="1082" | substr(&apcvar.20,2,4)="9117" | substr(&apcvar.20,2,4)="1642" | substr(&apcvar.20,2,4)="1083" | substr(&apcvar.20,2,4)="9118" | substr(&apcvar.20,2,4)="1643"
									| substr(&apcvar.21,2,4)="1082" | substr(&apcvar.21,2,4)="9117" | substr(&apcvar.21,2,4)="1642" | substr(&apcvar.21,2,4)="1083" | substr(&apcvar.21,2,4)="9118" | substr(&apcvar.21,2,4)="1643"
									| substr(&apcvar.22,2,4)="1082" | substr(&apcvar.22,2,4)="9117" | substr(&apcvar.22,2,4)="1642" | substr(&apcvar.22,2,4)="1083" | substr(&apcvar.22,2,4)="9118" | substr(&apcvar.22,2,4)="1643"
									| substr(&apcvar.23,2,4)="1082" | substr(&apcvar.23,2,4)="9117" | substr(&apcvar.23,2,4)="1642" | substr(&apcvar.23,2,4)="1083" | substr(&apcvar.23,2,4)="9118" | substr(&apcvar.23,2,4)="1643"
									| substr(&apcvar.24,2,4)="1082" | substr(&apcvar.24,2,4)="9117" | substr(&apcvar.24,2,4)="1642" | substr(&apcvar.24,2,4)="1083" | substr(&apcvar.24,2,4)="9118" | substr(&apcvar.24,2,4)="1643"
									| substr(&apcvar.25,2,4)="1082" | substr(&apcvar.25,2,4)="9117" | substr(&apcvar.25,2,4)="1642" | substr(&apcvar.25,2,4)="1083" | substr(&apcvar.25,2,4)="9118" | substr(&apcvar.25,2,4)="1643"
									| substr(&apcvar.26,2,4)="1082" | substr(&apcvar.26,2,4)="9117" | substr(&apcvar.26,2,4)="1642" | substr(&apcvar.26,2,4)="1083" | substr(&apcvar.26,2,4)="9118" | substr(&apcvar.26,2,4)="1643"
									| substr(&apcvar.27,2,4)="1082" | substr(&apcvar.27,2,4)="9117" | substr(&apcvar.27,2,4)="1642" | substr(&apcvar.27,2,4)="1083" | substr(&apcvar.27,2,4)="9118" | substr(&apcvar.27,2,4)="1643"
									| substr(&apcvar.28,2,4)="1082" | substr(&apcvar.28,2,4)="9117" | substr(&apcvar.28,2,4)="1642" | substr(&apcvar.28,2,4)="1083" | substr(&apcvar.28,2,4)="9118" | substr(&apcvar.28,2,4)="1643"
									| substr(&apcvar.29,2,4)="1082" | substr(&apcvar.29,2,4)="9117" | substr(&apcvar.29,2,4)="1642" | substr(&apcvar.29,2,4)="1083" | substr(&apcvar.29,2,4)="9118" | substr(&apcvar.29,2,4)="1643"
									| substr(&apcvar.30,2,4)="1082" | substr(&apcvar.30,2,4)="9117" | substr(&apcvar.30,2,4)="1642" | substr(&apcvar.30,2,4)="1083" | substr(&apcvar.30,2,4)="9118" | substr(&apcvar.30,2,4)="1643"
									| substr(&apcvar.31,2,4)="1082" | substr(&apcvar.31,2,4)="9117" | substr(&apcvar.31,2,4)="1642" | substr(&apcvar.31,2,4)="1083" | substr(&apcvar.31,2,4)="9118" | substr(&apcvar.31,2,4)="1643"
									| substr(&apcvar.32,2,4)="1082" | substr(&apcvar.32,2,4)="9117" | substr(&apcvar.32,2,4)="1642" | substr(&apcvar.32,2,4)="1083" | substr(&apcvar.32,2,4)="9118" | substr(&apcvar.32,2,4)="1643"
									| substr(&apcvar.33,2,4)="1082" | substr(&apcvar.33,2,4)="9117" | substr(&apcvar.33,2,4)="1642" | substr(&apcvar.33,2,4)="1083" | substr(&apcvar.33,2,4)="9118" | substr(&apcvar.33,2,4)="1643"
									| substr(&apcvar.34,2,4)="1082" | substr(&apcvar.34,2,4)="9117" | substr(&apcvar.34,2,4)="1642" | substr(&apcvar.34,2,4)="1083" | substr(&apcvar.34,2,4)="9118" | substr(&apcvar.34,2,4)="1643"
									| substr(&apcvar.35,2,4)="1082" | substr(&apcvar.35,2,4)="9117" | substr(&apcvar.35,2,4)="1642" | substr(&apcvar.35,2,4)="1083" | substr(&apcvar.35,2,4)="9118" | substr(&apcvar.35,2,4)="1643"
									| substr(&apcvar.36,2,4)="1082" | substr(&apcvar.36,2,4)="9117" | substr(&apcvar.36,2,4)="1642" | substr(&apcvar.36,2,4)="1083" | substr(&apcvar.36,2,4)="9118" | substr(&apcvar.36,2,4)="1643"
									| substr(&apcvar.37,2,4)="1082" | substr(&apcvar.37,2,4)="9117" | substr(&apcvar.37,2,4)="1642" | substr(&apcvar.37,2,4)="1083" | substr(&apcvar.37,2,4)="9118" | substr(&apcvar.37,2,4)="1643"
									| substr(&apcvar.38,2,4)="1082" | substr(&apcvar.38,2,4)="9117" | substr(&apcvar.38,2,4)="1642" | substr(&apcvar.38,2,4)="1083" | substr(&apcvar.38,2,4)="9118" | substr(&apcvar.38,2,4)="1643"
									| substr(&apcvar.39,2,4)="1082" | substr(&apcvar.39,2,4)="9117" | substr(&apcvar.39,2,4)="1642" | substr(&apcvar.39,2,4)="1083" | substr(&apcvar.39,2,4)="9118" | substr(&apcvar.39,2,4)="1643"
									| substr(&apcvar.40,2,4)="1082" | substr(&apcvar.40,2,4)="9117" | substr(&apcvar.40,2,4)="1642" | substr(&apcvar.40,2,4)="1083" | substr(&apcvar.40,2,4)="9118" | substr(&apcvar.40,2,4)="1643"
									| substr(&apcvar.41,2,4)="1082" | substr(&apcvar.41,2,4)="9117" | substr(&apcvar.41,2,4)="1642" | substr(&apcvar.41,2,4)="1083" | substr(&apcvar.41,2,4)="9118" | substr(&apcvar.41,2,4)="1643"
									| substr(&apcvar.42,2,4)="1082" | substr(&apcvar.42,2,4)="9117" | substr(&apcvar.42,2,4)="1642" | substr(&apcvar.42,2,4)="1083" | substr(&apcvar.42,2,4)="9118" | substr(&apcvar.42,2,4)="1643"
									| substr(&apcvar.43,2,4)="1082" | substr(&apcvar.43,2,4)="9117" | substr(&apcvar.43,2,4)="1642" | substr(&apcvar.43,2,4)="1083" | substr(&apcvar.43,2,4)="9118" | substr(&apcvar.43,2,4)="1643"
									| substr(&apcvar.44,2,4)="1082" | substr(&apcvar.44,2,4)="9117" | substr(&apcvar.44,2,4)="1642" | substr(&apcvar.44,2,4)="1083" | substr(&apcvar.44,2,4)="9118" | substr(&apcvar.44,2,4)="1643"
									| substr(&apcvar.45,2,4)="1082" | substr(&apcvar.45,2,4)="9117" | substr(&apcvar.45,2,4)="1642" | substr(&apcvar.45,2,4)="1083" | substr(&apcvar.45,2,4)="9118" | substr(&apcvar.45,2,4)="1643";
				chem_fulvestrant 	= &hcpcsvar.1 ="J9395" | &hcpcsvar.1 ="C9120"
									| &hcpcsvar.2 ="J9395" | &hcpcsvar.2 ="C9120"
									| &hcpcsvar.3 ="J9395" | &hcpcsvar.3 ="C9120"
									| &hcpcsvar.4 ="J9395" | &hcpcsvar.4 ="C9120"
									| &hcpcsvar.5 ="J9395" | &hcpcsvar.5 ="C9120"
									| &hcpcsvar.6 ="J9395" | &hcpcsvar.6 ="C9120"
									| &hcpcsvar.7 ="J9395" | &hcpcsvar.7 ="C9120"
									| &hcpcsvar.8 ="J9395" | &hcpcsvar.8 ="C9120"
									| &hcpcsvar.9 ="J9395" | &hcpcsvar.9 ="C9120"
									| &hcpcsvar.10="J9395" | &hcpcsvar.10="C9120"
									| &hcpcsvar.11="J9395" | &hcpcsvar.11="C9120"
									| &hcpcsvar.12="J9395" | &hcpcsvar.12="C9120"
									| &hcpcsvar.13="J9395" | &hcpcsvar.13="C9120"
									| &hcpcsvar.14="J9395" | &hcpcsvar.14="C9120"
									| &hcpcsvar.15="J9395" | &hcpcsvar.15="C9120"
									| &hcpcsvar.16="J9395" | &hcpcsvar.16="C9120"
									| &hcpcsvar.17="J9395" | &hcpcsvar.17="C9120"
									| &hcpcsvar.18="J9395" | &hcpcsvar.18="C9120"
									| &hcpcsvar.19="J9395" | &hcpcsvar.19="C9120"
									| &hcpcsvar.20="J9395" | &hcpcsvar.20="C9120"
									| &hcpcsvar.21="J9395" | &hcpcsvar.21="C9120"
									| &hcpcsvar.22="J9395" | &hcpcsvar.22="C9120"
									| &hcpcsvar.23="J9395" | &hcpcsvar.23="C9120"
									| &hcpcsvar.24="J9395" | &hcpcsvar.24="C9120"
									| &hcpcsvar.25="J9395" | &hcpcsvar.25="C9120"
									| &hcpcsvar.26="J9395" | &hcpcsvar.26="C9120"
									| &hcpcsvar.27="J9395" | &hcpcsvar.27="C9120"
									| &hcpcsvar.28="J9395" | &hcpcsvar.28="C9120"
									| &hcpcsvar.29="J9395" | &hcpcsvar.29="C9120"
									| &hcpcsvar.30="J9395" | &hcpcsvar.30="C9120"
									| &hcpcsvar.31="J9395" | &hcpcsvar.31="C9120"
									| &hcpcsvar.32="J9395" | &hcpcsvar.32="C9120"
									| &hcpcsvar.33="J9395" | &hcpcsvar.33="C9120"
									| &hcpcsvar.34="J9395" | &hcpcsvar.34="C9120"
									| &hcpcsvar.35="J9395" | &hcpcsvar.35="C9120"
									| &hcpcsvar.36="J9395" | &hcpcsvar.36="C9120"
									| &hcpcsvar.37="J9395" | &hcpcsvar.37="C9120"
									| &hcpcsvar.38="J9395" | &hcpcsvar.38="C9120"
									| &hcpcsvar.39="J9395" | &hcpcsvar.39="C9120"
									| &hcpcsvar.40="J9395" | &hcpcsvar.40="C9120"
									| &hcpcsvar.41="J9395" | &hcpcsvar.41="C9120"
									| &hcpcsvar.42="J9395" | &hcpcsvar.42="C9120"
									| &hcpcsvar.43="J9395" | &hcpcsvar.43="C9120"
									| &hcpcsvar.44="J9395" | &hcpcsvar.44="C9120"
									| &hcpcsvar.45="J9395" | &hcpcsvar.45="C9120"
									| substr(&apcvar.1 ,2,4)="9120"
									| substr(&apcvar.2 ,2,4)="9120"
									| substr(&apcvar.3 ,2,4)="9120"
									| substr(&apcvar.4 ,2,4)="9120"
									| substr(&apcvar.5 ,2,4)="9120"
									| substr(&apcvar.6 ,2,4)="9120"
									| substr(&apcvar.7 ,2,4)="9120"
									| substr(&apcvar.8 ,2,4)="9120"
									| substr(&apcvar.9 ,2,4)="9120"
									| substr(&apcvar.10,2,4)="9120"
									| substr(&apcvar.11,2,4)="9120"
									| substr(&apcvar.12,2,4)="9120"
									| substr(&apcvar.13,2,4)="9120"
									| substr(&apcvar.14,2,4)="9120"
									| substr(&apcvar.15,2,4)="9120"
									| substr(&apcvar.16,2,4)="9120"
									| substr(&apcvar.17,2,4)="9120"
									| substr(&apcvar.18,2,4)="9120"
									| substr(&apcvar.19,2,4)="9120"
									| substr(&apcvar.20,2,4)="9120"
									| substr(&apcvar.21,2,4)="9120"
									| substr(&apcvar.22,2,4)="9120"
									| substr(&apcvar.23,2,4)="9120"
									| substr(&apcvar.24,2,4)="9120"
									| substr(&apcvar.25,2,4)="9120"
									| substr(&apcvar.26,2,4)="9120"
									| substr(&apcvar.27,2,4)="9120"
									| substr(&apcvar.28,2,4)="9120"
									| substr(&apcvar.29,2,4)="9120"
									| substr(&apcvar.30,2,4)="9120"
									| substr(&apcvar.31,2,4)="9120"
									| substr(&apcvar.32,2,4)="9120"
									| substr(&apcvar.33,2,4)="9120"
									| substr(&apcvar.34,2,4)="9120"
									| substr(&apcvar.35,2,4)="9120"
									| substr(&apcvar.36,2,4)="9120"
									| substr(&apcvar.37,2,4)="9120"
									| substr(&apcvar.38,2,4)="9120"
									| substr(&apcvar.39,2,4)="9120"
									| substr(&apcvar.40,2,4)="9120"
									| substr(&apcvar.41,2,4)="9120"
									| substr(&apcvar.42,2,4)="9120"
									| substr(&apcvar.43,2,4)="9120"
									| substr(&apcvar.44,2,4)="9120"
									| substr(&apcvar.45,2,4)="9120";
				chem_rasburicase 	= &hcpcsvar.1 ="J2783"
									| &hcpcsvar.2 ="J2783"
									| &hcpcsvar.3 ="J2783"
									| &hcpcsvar.4 ="J2783"
									| &hcpcsvar.5 ="J2783"
									| &hcpcsvar.6 ="J2783"
									| &hcpcsvar.7 ="J2783"
									| &hcpcsvar.8 ="J2783"
									| &hcpcsvar.9 ="J2783"
									| &hcpcsvar.10="J2783"
									| &hcpcsvar.11="J2783"
									| &hcpcsvar.12="J2783"
									| &hcpcsvar.13="J2783"
									| &hcpcsvar.14="J2783"
									| &hcpcsvar.15="J2783"
									| &hcpcsvar.16="J2783"
									| &hcpcsvar.17="J2783"
									| &hcpcsvar.18="J2783"
									| &hcpcsvar.19="J2783"
									| &hcpcsvar.20="J2783"
									| &hcpcsvar.21="J2783"
									| &hcpcsvar.22="J2783"
									| &hcpcsvar.23="J2783"
									| &hcpcsvar.24="J2783"
									| &hcpcsvar.25="J2783"
									| &hcpcsvar.26="J2783"
									| &hcpcsvar.27="J2783"
									| &hcpcsvar.28="J2783"
									| &hcpcsvar.29="J2783"
									| &hcpcsvar.30="J2783"
									| &hcpcsvar.31="J2783"
									| &hcpcsvar.32="J2783"
									| &hcpcsvar.33="J2783"
									| &hcpcsvar.34="J2783"
									| &hcpcsvar.35="J2783"
									| &hcpcsvar.36="J2783"
									| &hcpcsvar.37="J2783"
									| &hcpcsvar.38="J2783"
									| &hcpcsvar.39="J2783"
									| &hcpcsvar.40="J2783"
									| &hcpcsvar.41="J2783"
									| &hcpcsvar.42="J2783"
									| &hcpcsvar.43="J2783"
									| &hcpcsvar.44="J2783"
									| &hcpcsvar.45="J2783"
									| substr(&apcvar.1 ,2,4)="0738"
									| substr(&apcvar.2 ,2,4)="0738"
									| substr(&apcvar.3 ,2,4)="0738"
									| substr(&apcvar.4 ,2,4)="0738"
									| substr(&apcvar.5 ,2,4)="0738"
									| substr(&apcvar.6 ,2,4)="0738"
									| substr(&apcvar.7 ,2,4)="0738"
									| substr(&apcvar.8 ,2,4)="0738"
									| substr(&apcvar.9 ,2,4)="0738"
									| substr(&apcvar.10,2,4)="0738"
									| substr(&apcvar.11,2,4)="0738"
									| substr(&apcvar.12,2,4)="0738"
									| substr(&apcvar.13,2,4)="0738"
									| substr(&apcvar.14,2,4)="0738"
									| substr(&apcvar.15,2,4)="0738"
									| substr(&apcvar.16,2,4)="0738"
									| substr(&apcvar.17,2,4)="0738"
									| substr(&apcvar.18,2,4)="0738"
									| substr(&apcvar.19,2,4)="0738"
									| substr(&apcvar.20,2,4)="0738"
									| substr(&apcvar.21,2,4)="0738"
									| substr(&apcvar.22,2,4)="0738"
									| substr(&apcvar.23,2,4)="0738"
									| substr(&apcvar.24,2,4)="0738"
									| substr(&apcvar.25,2,4)="0738"
									| substr(&apcvar.26,2,4)="0738"
									| substr(&apcvar.27,2,4)="0738"
									| substr(&apcvar.28,2,4)="0738"
									| substr(&apcvar.29,2,4)="0738"
									| substr(&apcvar.30,2,4)="0738"
									| substr(&apcvar.31,2,4)="0738"
									| substr(&apcvar.32,2,4)="0738"
									| substr(&apcvar.33,2,4)="0738"
									| substr(&apcvar.34,2,4)="0738"
									| substr(&apcvar.35,2,4)="0738"
									| substr(&apcvar.36,2,4)="0738"
									| substr(&apcvar.37,2,4)="0738"
									| substr(&apcvar.38,2,4)="0738"
									| substr(&apcvar.39,2,4)="0738"
									| substr(&apcvar.40,2,4)="0738"
									| substr(&apcvar.41,2,4)="0738"
									| substr(&apcvar.42,2,4)="0738"
									| substr(&apcvar.43,2,4)="0738"
									| substr(&apcvar.44,2,4)="0738"
									| substr(&apcvar.45,2,4)="0738";
				chem_oxaliplatin 	= &hcpcsvar.1 ="J9263" | &hcpcsvar.1 ="C9205"
									| &hcpcsvar.2 ="J9263" | &hcpcsvar.2 ="C9205"
									| &hcpcsvar.3 ="J9263" | &hcpcsvar.3 ="C9205"
									| &hcpcsvar.4 ="J9263" | &hcpcsvar.4 ="C9205"
									| &hcpcsvar.5 ="J9263" | &hcpcsvar.5 ="C9205"
									| &hcpcsvar.6 ="J9263" | &hcpcsvar.6 ="C9205"
									| &hcpcsvar.7 ="J9263" | &hcpcsvar.7 ="C9205"
									| &hcpcsvar.8 ="J9263" | &hcpcsvar.8 ="C9205"
									| &hcpcsvar.9 ="J9263" | &hcpcsvar.9 ="C9205"
									| &hcpcsvar.10="J9263" | &hcpcsvar.10="C9205"
									| &hcpcsvar.11="J9263" | &hcpcsvar.11="C9205"
									| &hcpcsvar.12="J9263" | &hcpcsvar.12="C9205"
									| &hcpcsvar.13="J9263" | &hcpcsvar.13="C9205"
									| &hcpcsvar.14="J9263" | &hcpcsvar.14="C9205"
									| &hcpcsvar.15="J9263" | &hcpcsvar.15="C9205"
									| &hcpcsvar.16="J9263" | &hcpcsvar.16="C9205"
									| &hcpcsvar.17="J9263" | &hcpcsvar.17="C9205"
									| &hcpcsvar.18="J9263" | &hcpcsvar.18="C9205"
									| &hcpcsvar.19="J9263" | &hcpcsvar.19="C9205"
									| &hcpcsvar.20="J9263" | &hcpcsvar.20="C9205"
									| &hcpcsvar.21="J9263" | &hcpcsvar.21="C9205"
									| &hcpcsvar.22="J9263" | &hcpcsvar.22="C9205"
									| &hcpcsvar.23="J9263" | &hcpcsvar.23="C9205"
									| &hcpcsvar.24="J9263" | &hcpcsvar.24="C9205"
									| &hcpcsvar.25="J9263" | &hcpcsvar.25="C9205"
									| &hcpcsvar.26="J9263" | &hcpcsvar.26="C9205"
									| &hcpcsvar.27="J9263" | &hcpcsvar.27="C9205"
									| &hcpcsvar.28="J9263" | &hcpcsvar.28="C9205"
									| &hcpcsvar.29="J9263" | &hcpcsvar.29="C9205"
									| &hcpcsvar.30="J9263" | &hcpcsvar.30="C9205"
									| &hcpcsvar.31="J9263" | &hcpcsvar.31="C9205"
									| &hcpcsvar.32="J9263" | &hcpcsvar.32="C9205"
									| &hcpcsvar.33="J9263" | &hcpcsvar.33="C9205"
									| &hcpcsvar.34="J9263" | &hcpcsvar.34="C9205"
									| &hcpcsvar.35="J9263" | &hcpcsvar.35="C9205"
									| &hcpcsvar.36="J9263" | &hcpcsvar.36="C9205"
									| &hcpcsvar.37="J9263" | &hcpcsvar.37="C9205"
									| &hcpcsvar.38="J9263" | &hcpcsvar.38="C9205"
									| &hcpcsvar.39="J9263" | &hcpcsvar.39="C9205"
									| &hcpcsvar.40="J9263" | &hcpcsvar.40="C9205"
									| &hcpcsvar.41="J9263" | &hcpcsvar.41="C9205"
									| &hcpcsvar.42="J9263" | &hcpcsvar.42="C9205"
									| &hcpcsvar.43="J9263" | &hcpcsvar.43="C9205"
									| &hcpcsvar.44="J9263" | &hcpcsvar.44="C9205"
									| &hcpcsvar.45="J9263" | &hcpcsvar.45="C9205"
									| substr(&apcvar.1 ,2,4)="9205" | substr(&apcvar.1 ,2,4)="1738"
									| substr(&apcvar.2 ,2,4)="9205" | substr(&apcvar.2 ,2,4)="1738"
									| substr(&apcvar.3 ,2,4)="9205" | substr(&apcvar.3 ,2,4)="1738"
									| substr(&apcvar.4 ,2,4)="9205" | substr(&apcvar.4 ,2,4)="1738"
									| substr(&apcvar.5 ,2,4)="9205" | substr(&apcvar.5 ,2,4)="1738"
									| substr(&apcvar.6 ,2,4)="9205" | substr(&apcvar.6 ,2,4)="1738"
									| substr(&apcvar.7 ,2,4)="9205" | substr(&apcvar.7 ,2,4)="1738"
									| substr(&apcvar.8 ,2,4)="9205" | substr(&apcvar.8 ,2,4)="1738"
									| substr(&apcvar.9 ,2,4)="9205" | substr(&apcvar.9 ,2,4)="1738"
									| substr(&apcvar.10,2,4)="9205" | substr(&apcvar.10,2,4)="1738"
									| substr(&apcvar.11,2,4)="9205" | substr(&apcvar.11,2,4)="1738"
									| substr(&apcvar.12,2,4)="9205" | substr(&apcvar.12,2,4)="1738"
									| substr(&apcvar.13,2,4)="9205" | substr(&apcvar.13,2,4)="1738"
									| substr(&apcvar.14,2,4)="9205" | substr(&apcvar.14,2,4)="1738"
									| substr(&apcvar.15,2,4)="9205" | substr(&apcvar.15,2,4)="1738"
									| substr(&apcvar.16,2,4)="9205" | substr(&apcvar.16,2,4)="1738"
									| substr(&apcvar.17,2,4)="9205" | substr(&apcvar.17,2,4)="1738"
									| substr(&apcvar.18,2,4)="9205" | substr(&apcvar.18,2,4)="1738"
									| substr(&apcvar.19,2,4)="9205" | substr(&apcvar.19,2,4)="1738"
									| substr(&apcvar.20,2,4)="9205" | substr(&apcvar.20,2,4)="1738"
									| substr(&apcvar.21,2,4)="9205" | substr(&apcvar.21,2,4)="1738"
									| substr(&apcvar.22,2,4)="9205" | substr(&apcvar.22,2,4)="1738"
									| substr(&apcvar.23,2,4)="9205" | substr(&apcvar.23,2,4)="1738"
									| substr(&apcvar.24,2,4)="9205" | substr(&apcvar.24,2,4)="1738"
									| substr(&apcvar.25,2,4)="9205" | substr(&apcvar.25,2,4)="1738"
									| substr(&apcvar.26,2,4)="9205" | substr(&apcvar.26,2,4)="1738"
									| substr(&apcvar.27,2,4)="9205" | substr(&apcvar.27,2,4)="1738"
									| substr(&apcvar.28,2,4)="9205" | substr(&apcvar.28,2,4)="1738"
									| substr(&apcvar.29,2,4)="9205" | substr(&apcvar.29,2,4)="1738"
									| substr(&apcvar.30,2,4)="9205" | substr(&apcvar.30,2,4)="1738"
									| substr(&apcvar.31,2,4)="9205" | substr(&apcvar.31,2,4)="1738"
									| substr(&apcvar.32,2,4)="9205" | substr(&apcvar.32,2,4)="1738"
									| substr(&apcvar.33,2,4)="9205" | substr(&apcvar.33,2,4)="1738"
									| substr(&apcvar.34,2,4)="9205" | substr(&apcvar.34,2,4)="1738"
									| substr(&apcvar.35,2,4)="9205" | substr(&apcvar.35,2,4)="1738"
									| substr(&apcvar.36,2,4)="9205" | substr(&apcvar.36,2,4)="1738"
									| substr(&apcvar.37,2,4)="9205" | substr(&apcvar.37,2,4)="1738"
									| substr(&apcvar.38,2,4)="9205" | substr(&apcvar.38,2,4)="1738"
									| substr(&apcvar.39,2,4)="9205" | substr(&apcvar.39,2,4)="1738"
									| substr(&apcvar.40,2,4)="9205" | substr(&apcvar.40,2,4)="1738"
									| substr(&apcvar.41,2,4)="9205" | substr(&apcvar.41,2,4)="1738"
									| substr(&apcvar.42,2,4)="9205" | substr(&apcvar.42,2,4)="1738"
									| substr(&apcvar.43,2,4)="9205" | substr(&apcvar.43,2,4)="1738"
									| substr(&apcvar.44,2,4)="9205" | substr(&apcvar.44,2,4)="1738"
									| substr(&apcvar.45,2,4)="9205" | substr(&apcvar.45,2,4)="1738";
				chem_gefitinib 		= &hcpcsvar.1 ="J8565"
									| &hcpcsvar.2 ="J8565"
									| &hcpcsvar.3 ="J8565"
									| &hcpcsvar.4 ="J8565"
									| &hcpcsvar.5 ="J8565"
									| &hcpcsvar.6 ="J8565"
									| &hcpcsvar.7 ="J8565"
									| &hcpcsvar.8 ="J8565"
									| &hcpcsvar.9 ="J8565"
									| &hcpcsvar.10="J8565"
									| &hcpcsvar.11="J8565"
									| &hcpcsvar.12="J8565"
									| &hcpcsvar.13="J8565"
									| &hcpcsvar.14="J8565"
									| &hcpcsvar.15="J8565"
									| &hcpcsvar.16="J8565"
									| &hcpcsvar.17="J8565"
									| &hcpcsvar.18="J8565"
									| &hcpcsvar.19="J8565"
									| &hcpcsvar.20="J8565"
									| &hcpcsvar.21="J8565"
									| &hcpcsvar.22="J8565"
									| &hcpcsvar.23="J8565"
									| &hcpcsvar.24="J8565"
									| &hcpcsvar.25="J8565"
									| &hcpcsvar.26="J8565"
									| &hcpcsvar.27="J8565"
									| &hcpcsvar.28="J8565"
									| &hcpcsvar.29="J8565"
									| &hcpcsvar.30="J8565"
									| &hcpcsvar.31="J8565"
									| &hcpcsvar.32="J8565"
									| &hcpcsvar.33="J8565"
									| &hcpcsvar.34="J8565"
									| &hcpcsvar.35="J8565"
									| &hcpcsvar.36="J8565"
									| &hcpcsvar.37="J8565"
									| &hcpcsvar.38="J8565"
									| &hcpcsvar.39="J8565"
									| &hcpcsvar.40="J8565"
									| &hcpcsvar.41="J8565"
									| &hcpcsvar.42="J8565"
									| &hcpcsvar.43="J8565"
									| &hcpcsvar.44="J8565"
									| &hcpcsvar.45="J8565";
				chem_bortezomib 	= &hcpcsvar.1 ="J9041" | &hcpcsvar.1 ="S0115" | &hcpcsvar.1 ="C9207"
									| &hcpcsvar.2 ="J9041" | &hcpcsvar.2 ="S0115" | &hcpcsvar.2 ="C9207"
									| &hcpcsvar.3 ="J9041" | &hcpcsvar.3 ="S0115" | &hcpcsvar.3 ="C9207"
									| &hcpcsvar.4 ="J9041" | &hcpcsvar.4 ="S0115" | &hcpcsvar.4 ="C9207"
									| &hcpcsvar.5 ="J9041" | &hcpcsvar.5 ="S0115" | &hcpcsvar.5 ="C9207"
									| &hcpcsvar.6 ="J9041" | &hcpcsvar.6 ="S0115" | &hcpcsvar.6 ="C9207"
									| &hcpcsvar.7 ="J9041" | &hcpcsvar.7 ="S0115" | &hcpcsvar.7 ="C9207"
									| &hcpcsvar.8 ="J9041" | &hcpcsvar.8 ="S0115" | &hcpcsvar.8 ="C9207"
									| &hcpcsvar.9 ="J9041" | &hcpcsvar.9 ="S0115" | &hcpcsvar.9 ="C9207"
									| &hcpcsvar.10="J9041" | &hcpcsvar.10="S0115" | &hcpcsvar.10="C9207"
									| &hcpcsvar.11="J9041" | &hcpcsvar.11="S0115" | &hcpcsvar.11="C9207"
									| &hcpcsvar.12="J9041" | &hcpcsvar.12="S0115" | &hcpcsvar.12="C9207"
									| &hcpcsvar.13="J9041" | &hcpcsvar.13="S0115" | &hcpcsvar.13="C9207"
									| &hcpcsvar.14="J9041" | &hcpcsvar.14="S0115" | &hcpcsvar.14="C9207"
									| &hcpcsvar.15="J9041" | &hcpcsvar.15="S0115" | &hcpcsvar.15="C9207"
									| &hcpcsvar.16="J9041" | &hcpcsvar.16="S0115" | &hcpcsvar.16="C9207"
									| &hcpcsvar.17="J9041" | &hcpcsvar.17="S0115" | &hcpcsvar.17="C9207"
									| &hcpcsvar.18="J9041" | &hcpcsvar.18="S0115" | &hcpcsvar.18="C9207"
									| &hcpcsvar.19="J9041" | &hcpcsvar.19="S0115" | &hcpcsvar.19="C9207"
									| &hcpcsvar.20="J9041" | &hcpcsvar.20="S0115" | &hcpcsvar.20="C9207"
									| &hcpcsvar.21="J9041" | &hcpcsvar.21="S0115" | &hcpcsvar.21="C9207"
									| &hcpcsvar.22="J9041" | &hcpcsvar.22="S0115" | &hcpcsvar.22="C9207"
									| &hcpcsvar.23="J9041" | &hcpcsvar.23="S0115" | &hcpcsvar.23="C9207"
									| &hcpcsvar.24="J9041" | &hcpcsvar.24="S0115" | &hcpcsvar.24="C9207"
									| &hcpcsvar.25="J9041" | &hcpcsvar.25="S0115" | &hcpcsvar.25="C9207"
									| &hcpcsvar.26="J9041" | &hcpcsvar.26="S0115" | &hcpcsvar.26="C9207"
									| &hcpcsvar.27="J9041" | &hcpcsvar.27="S0115" | &hcpcsvar.27="C9207"
									| &hcpcsvar.28="J9041" | &hcpcsvar.28="S0115" | &hcpcsvar.28="C9207"
									| &hcpcsvar.29="J9041" | &hcpcsvar.29="S0115" | &hcpcsvar.29="C9207"
									| &hcpcsvar.30="J9041" | &hcpcsvar.30="S0115" | &hcpcsvar.30="C9207"
									| &hcpcsvar.31="J9041" | &hcpcsvar.31="S0115" | &hcpcsvar.31="C9207"
									| &hcpcsvar.32="J9041" | &hcpcsvar.32="S0115" | &hcpcsvar.32="C9207"
									| &hcpcsvar.33="J9041" | &hcpcsvar.33="S0115" | &hcpcsvar.33="C9207"
									| &hcpcsvar.34="J9041" | &hcpcsvar.34="S0115" | &hcpcsvar.34="C9207"
									| &hcpcsvar.35="J9041" | &hcpcsvar.35="S0115" | &hcpcsvar.35="C9207"
									| &hcpcsvar.36="J9041" | &hcpcsvar.36="S0115" | &hcpcsvar.36="C9207"
									| &hcpcsvar.37="J9041" | &hcpcsvar.37="S0115" | &hcpcsvar.37="C9207"
									| &hcpcsvar.38="J9041" | &hcpcsvar.38="S0115" | &hcpcsvar.38="C9207"
									| &hcpcsvar.39="J9041" | &hcpcsvar.39="S0115" | &hcpcsvar.39="C9207"
									| &hcpcsvar.40="J9041" | &hcpcsvar.40="S0115" | &hcpcsvar.40="C9207"
									| &hcpcsvar.41="J9041" | &hcpcsvar.41="S0115" | &hcpcsvar.41="C9207"
									| &hcpcsvar.42="J9041" | &hcpcsvar.42="S0115" | &hcpcsvar.42="C9207"
									| &hcpcsvar.43="J9041" | &hcpcsvar.43="S0115" | &hcpcsvar.43="C9207"
									| &hcpcsvar.44="J9041" | &hcpcsvar.44="S0115" | &hcpcsvar.44="C9207"
									| &hcpcsvar.45="J9041" | &hcpcsvar.45="S0115" | &hcpcsvar.45="C9207"
									| substr(&apcvar.1 ,2,4)="9207"
									| substr(&apcvar.2 ,2,4)="9207"
									| substr(&apcvar.3 ,2,4)="9207"
									| substr(&apcvar.4 ,2,4)="9207"
									| substr(&apcvar.5 ,2,4)="9207"
									| substr(&apcvar.6 ,2,4)="9207"
									| substr(&apcvar.7 ,2,4)="9207"
									| substr(&apcvar.8 ,2,4)="9207"
									| substr(&apcvar.9 ,2,4)="9207"
									| substr(&apcvar.10,2,4)="9207"
									| substr(&apcvar.11,2,4)="9207"
									| substr(&apcvar.12,2,4)="9207"
									| substr(&apcvar.13,2,4)="9207"
									| substr(&apcvar.14,2,4)="9207"
									| substr(&apcvar.15,2,4)="9207"
									| substr(&apcvar.16,2,4)="9207"
									| substr(&apcvar.17,2,4)="9207"
									| substr(&apcvar.18,2,4)="9207"
									| substr(&apcvar.19,2,4)="9207"
									| substr(&apcvar.20,2,4)="9207"
									| substr(&apcvar.21,2,4)="9207"
									| substr(&apcvar.22,2,4)="9207"
									| substr(&apcvar.23,2,4)="9207"
									| substr(&apcvar.24,2,4)="9207"
									| substr(&apcvar.25,2,4)="9207"
									| substr(&apcvar.26,2,4)="9207"
									| substr(&apcvar.27,2,4)="9207"
									| substr(&apcvar.28,2,4)="9207"
									| substr(&apcvar.29,2,4)="9207"
									| substr(&apcvar.30,2,4)="9207"
									| substr(&apcvar.31,2,4)="9207"
									| substr(&apcvar.32,2,4)="9207"
									| substr(&apcvar.33,2,4)="9207"
									| substr(&apcvar.34,2,4)="9207"
									| substr(&apcvar.35,2,4)="9207"
									| substr(&apcvar.36,2,4)="9207"
									| substr(&apcvar.37,2,4)="9207"
									| substr(&apcvar.38,2,4)="9207"
									| substr(&apcvar.39,2,4)="9207"
									| substr(&apcvar.40,2,4)="9207"
									| substr(&apcvar.41,2,4)="9207"
									| substr(&apcvar.42,2,4)="9207"
									| substr(&apcvar.43,2,4)="9207"
									| substr(&apcvar.44,2,4)="9207"
									| substr(&apcvar.45,2,4)="9207";
				chem_tositumomab 	= &hcpcsvar.1 ="C1080" | &hcpcsvar.1 ="C1081" | &hcpcsvar.1 ="A9544" | &hcpcsvar.1 ="A9545" | &hcpcsvar.1 ="G3001"
									| &hcpcsvar.2 ="C1080" | &hcpcsvar.2 ="C1081" | &hcpcsvar.2 ="A9544" | &hcpcsvar.2 ="A9545" | &hcpcsvar.2 ="G3001"
									| &hcpcsvar.3 ="C1080" | &hcpcsvar.3 ="C1081" | &hcpcsvar.3 ="A9544" | &hcpcsvar.3 ="A9545" | &hcpcsvar.3 ="G3001"
									| &hcpcsvar.4 ="C1080" | &hcpcsvar.4 ="C1081" | &hcpcsvar.4 ="A9544" | &hcpcsvar.4 ="A9545" | &hcpcsvar.4 ="G3001"
									| &hcpcsvar.5 ="C1080" | &hcpcsvar.5 ="C1081" | &hcpcsvar.5 ="A9544" | &hcpcsvar.5 ="A9545" | &hcpcsvar.5 ="G3001"
									| &hcpcsvar.6 ="C1080" | &hcpcsvar.6 ="C1081" | &hcpcsvar.6 ="A9544" | &hcpcsvar.6 ="A9545" | &hcpcsvar.6 ="G3001"
									| &hcpcsvar.7 ="C1080" | &hcpcsvar.7 ="C1081" | &hcpcsvar.7 ="A9544" | &hcpcsvar.7 ="A9545" | &hcpcsvar.7 ="G3001"
									| &hcpcsvar.8 ="C1080" | &hcpcsvar.8 ="C1081" | &hcpcsvar.8 ="A9544" | &hcpcsvar.8 ="A9545" | &hcpcsvar.8 ="G3001"
									| &hcpcsvar.9 ="C1080" | &hcpcsvar.9 ="C1081" | &hcpcsvar.9 ="A9544" | &hcpcsvar.9 ="A9545" | &hcpcsvar.9 ="G3001"
									| &hcpcsvar.10="C1080" | &hcpcsvar.10="C1081" | &hcpcsvar.10="A9544" | &hcpcsvar.10="A9545" | &hcpcsvar.10="G3001"
									| &hcpcsvar.11="C1080" | &hcpcsvar.11="C1081" | &hcpcsvar.11="A9544" | &hcpcsvar.11="A9545" | &hcpcsvar.11="G3001"
									| &hcpcsvar.12="C1080" | &hcpcsvar.12="C1081" | &hcpcsvar.12="A9544" | &hcpcsvar.12="A9545" | &hcpcsvar.12="G3001"
									| &hcpcsvar.13="C1080" | &hcpcsvar.13="C1081" | &hcpcsvar.13="A9544" | &hcpcsvar.13="A9545" | &hcpcsvar.13="G3001"
									| &hcpcsvar.14="C1080" | &hcpcsvar.14="C1081" | &hcpcsvar.14="A9544" | &hcpcsvar.14="A9545" | &hcpcsvar.14="G3001"
									| &hcpcsvar.15="C1080" | &hcpcsvar.15="C1081" | &hcpcsvar.15="A9544" | &hcpcsvar.15="A9545" | &hcpcsvar.15="G3001"
									| &hcpcsvar.16="C1080" | &hcpcsvar.16="C1081" | &hcpcsvar.16="A9544" | &hcpcsvar.16="A9545" | &hcpcsvar.16="G3001"
									| &hcpcsvar.17="C1080" | &hcpcsvar.17="C1081" | &hcpcsvar.17="A9544" | &hcpcsvar.17="A9545" | &hcpcsvar.17="G3001"
									| &hcpcsvar.18="C1080" | &hcpcsvar.18="C1081" | &hcpcsvar.18="A9544" | &hcpcsvar.18="A9545" | &hcpcsvar.18="G3001"
									| &hcpcsvar.19="C1080" | &hcpcsvar.19="C1081" | &hcpcsvar.19="A9544" | &hcpcsvar.19="A9545" | &hcpcsvar.19="G3001"
									| &hcpcsvar.20="C1080" | &hcpcsvar.20="C1081" | &hcpcsvar.20="A9544" | &hcpcsvar.20="A9545" | &hcpcsvar.20="G3001"
									| &hcpcsvar.21="C1080" | &hcpcsvar.21="C1081" | &hcpcsvar.21="A9544" | &hcpcsvar.21="A9545" | &hcpcsvar.21="G3001"
									| &hcpcsvar.22="C1080" | &hcpcsvar.22="C1081" | &hcpcsvar.22="A9544" | &hcpcsvar.22="A9545" | &hcpcsvar.22="G3001"
									| &hcpcsvar.23="C1080" | &hcpcsvar.23="C1081" | &hcpcsvar.23="A9544" | &hcpcsvar.23="A9545" | &hcpcsvar.23="G3001"
									| &hcpcsvar.24="C1080" | &hcpcsvar.24="C1081" | &hcpcsvar.24="A9544" | &hcpcsvar.24="A9545" | &hcpcsvar.24="G3001"
									| &hcpcsvar.25="C1080" | &hcpcsvar.25="C1081" | &hcpcsvar.25="A9544" | &hcpcsvar.25="A9545" | &hcpcsvar.25="G3001"
									| &hcpcsvar.26="C1080" | &hcpcsvar.26="C1081" | &hcpcsvar.26="A9544" | &hcpcsvar.26="A9545" | &hcpcsvar.26="G3001"
									| &hcpcsvar.27="C1080" | &hcpcsvar.27="C1081" | &hcpcsvar.27="A9544" | &hcpcsvar.27="A9545" | &hcpcsvar.27="G3001"
									| &hcpcsvar.28="C1080" | &hcpcsvar.28="C1081" | &hcpcsvar.28="A9544" | &hcpcsvar.28="A9545" | &hcpcsvar.28="G3001"
									| &hcpcsvar.29="C1080" | &hcpcsvar.29="C1081" | &hcpcsvar.29="A9544" | &hcpcsvar.29="A9545" | &hcpcsvar.29="G3001"
									| &hcpcsvar.30="C1080" | &hcpcsvar.30="C1081" | &hcpcsvar.30="A9544" | &hcpcsvar.30="A9545" | &hcpcsvar.30="G3001"
									| &hcpcsvar.31="C1080" | &hcpcsvar.31="C1081" | &hcpcsvar.31="A9544" | &hcpcsvar.31="A9545" | &hcpcsvar.31="G3001"
									| &hcpcsvar.32="C1080" | &hcpcsvar.32="C1081" | &hcpcsvar.32="A9544" | &hcpcsvar.32="A9545" | &hcpcsvar.32="G3001"
									| &hcpcsvar.33="C1080" | &hcpcsvar.33="C1081" | &hcpcsvar.33="A9544" | &hcpcsvar.33="A9545" | &hcpcsvar.33="G3001"
									| &hcpcsvar.34="C1080" | &hcpcsvar.34="C1081" | &hcpcsvar.34="A9544" | &hcpcsvar.34="A9545" | &hcpcsvar.34="G3001"
									| &hcpcsvar.35="C1080" | &hcpcsvar.35="C1081" | &hcpcsvar.35="A9544" | &hcpcsvar.35="A9545" | &hcpcsvar.35="G3001"
									| &hcpcsvar.36="C1080" | &hcpcsvar.36="C1081" | &hcpcsvar.36="A9544" | &hcpcsvar.36="A9545" | &hcpcsvar.36="G3001"
									| &hcpcsvar.37="C1080" | &hcpcsvar.37="C1081" | &hcpcsvar.37="A9544" | &hcpcsvar.37="A9545" | &hcpcsvar.37="G3001"
									| &hcpcsvar.38="C1080" | &hcpcsvar.38="C1081" | &hcpcsvar.38="A9544" | &hcpcsvar.38="A9545" | &hcpcsvar.38="G3001"
									| &hcpcsvar.39="C1080" | &hcpcsvar.39="C1081" | &hcpcsvar.39="A9544" | &hcpcsvar.39="A9545" | &hcpcsvar.39="G3001"
									| &hcpcsvar.40="C1080" | &hcpcsvar.40="C1081" | &hcpcsvar.40="A9544" | &hcpcsvar.40="A9545" | &hcpcsvar.40="G3001"
									| &hcpcsvar.41="C1080" | &hcpcsvar.41="C1081" | &hcpcsvar.41="A9544" | &hcpcsvar.41="A9545" | &hcpcsvar.41="G3001"
									| &hcpcsvar.42="C1080" | &hcpcsvar.42="C1081" | &hcpcsvar.42="A9544" | &hcpcsvar.42="A9545" | &hcpcsvar.42="G3001"
									| &hcpcsvar.43="C1080" | &hcpcsvar.43="C1081" | &hcpcsvar.43="A9544" | &hcpcsvar.43="A9545" | &hcpcsvar.43="G3001"
									| &hcpcsvar.44="C1080" | &hcpcsvar.44="C1081" | &hcpcsvar.44="A9544" | &hcpcsvar.44="A9545" | &hcpcsvar.44="G3001"
									| &hcpcsvar.45="C1080" | &hcpcsvar.45="C1081" | &hcpcsvar.45="A9544" | &hcpcsvar.45="A9545" | &hcpcsvar.45="G3001"
									| substr(&apcvar.1 ,2,4)="1080" | substr(&apcvar.1 ,2,4)="1081" | substr(&apcvar.1 ,2,4)="1644" | substr(&apcvar.1 ,2,4)="1645"
									| substr(&apcvar.2 ,2,4)="1080" | substr(&apcvar.2 ,2,4)="1081" | substr(&apcvar.2 ,2,4)="1644" | substr(&apcvar.2 ,2,4)="1645"
									| substr(&apcvar.3 ,2,4)="1080" | substr(&apcvar.3 ,2,4)="1081" | substr(&apcvar.3 ,2,4)="1644" | substr(&apcvar.3 ,2,4)="1645"
									| substr(&apcvar.4 ,2,4)="1080" | substr(&apcvar.4 ,2,4)="1081" | substr(&apcvar.4 ,2,4)="1644" | substr(&apcvar.4 ,2,4)="1645"
									| substr(&apcvar.5 ,2,4)="1080" | substr(&apcvar.5 ,2,4)="1081" | substr(&apcvar.5 ,2,4)="1644" | substr(&apcvar.5 ,2,4)="1645"
									| substr(&apcvar.6 ,2,4)="1080" | substr(&apcvar.6 ,2,4)="1081" | substr(&apcvar.6 ,2,4)="1644" | substr(&apcvar.6 ,2,4)="1645"
									| substr(&apcvar.7 ,2,4)="1080" | substr(&apcvar.7 ,2,4)="1081" | substr(&apcvar.7 ,2,4)="1644" | substr(&apcvar.7 ,2,4)="1645"
									| substr(&apcvar.8 ,2,4)="1080" | substr(&apcvar.8 ,2,4)="1081" | substr(&apcvar.8 ,2,4)="1644" | substr(&apcvar.8 ,2,4)="1645"
									| substr(&apcvar.9 ,2,4)="1080" | substr(&apcvar.9 ,2,4)="1081" | substr(&apcvar.9 ,2,4)="1644" | substr(&apcvar.9 ,2,4)="1645"
									| substr(&apcvar.10,2,4)="1080" | substr(&apcvar.10,2,4)="1081" | substr(&apcvar.10,2,4)="1644" | substr(&apcvar.10,2,4)="1645"
									| substr(&apcvar.11,2,4)="1080" | substr(&apcvar.11,2,4)="1081" | substr(&apcvar.11,2,4)="1644" | substr(&apcvar.11,2,4)="1645"
									| substr(&apcvar.12,2,4)="1080" | substr(&apcvar.12,2,4)="1081" | substr(&apcvar.12,2,4)="1644" | substr(&apcvar.12,2,4)="1645"
									| substr(&apcvar.13,2,4)="1080" | substr(&apcvar.13,2,4)="1081" | substr(&apcvar.13,2,4)="1644" | substr(&apcvar.13,2,4)="1645"
									| substr(&apcvar.14,2,4)="1080" | substr(&apcvar.14,2,4)="1081" | substr(&apcvar.14,2,4)="1644" | substr(&apcvar.14,2,4)="1645"
									| substr(&apcvar.15,2,4)="1080" | substr(&apcvar.15,2,4)="1081" | substr(&apcvar.15,2,4)="1644" | substr(&apcvar.15,2,4)="1645"
									| substr(&apcvar.16,2,4)="1080" | substr(&apcvar.16,2,4)="1081" | substr(&apcvar.16,2,4)="1644" | substr(&apcvar.16,2,4)="1645"
									| substr(&apcvar.17,2,4)="1080" | substr(&apcvar.17,2,4)="1081" | substr(&apcvar.17,2,4)="1644" | substr(&apcvar.17,2,4)="1645"
									| substr(&apcvar.18,2,4)="1080" | substr(&apcvar.18,2,4)="1081" | substr(&apcvar.18,2,4)="1644" | substr(&apcvar.18,2,4)="1645"
									| substr(&apcvar.19,2,4)="1080" | substr(&apcvar.19,2,4)="1081" | substr(&apcvar.19,2,4)="1644" | substr(&apcvar.19,2,4)="1645"
									| substr(&apcvar.20,2,4)="1080" | substr(&apcvar.20,2,4)="1081" | substr(&apcvar.20,2,4)="1644" | substr(&apcvar.20,2,4)="1645"
									| substr(&apcvar.21,2,4)="1080" | substr(&apcvar.21,2,4)="1081" | substr(&apcvar.21,2,4)="1644" | substr(&apcvar.21,2,4)="1645"
									| substr(&apcvar.22,2,4)="1080" | substr(&apcvar.22,2,4)="1081" | substr(&apcvar.22,2,4)="1644" | substr(&apcvar.22,2,4)="1645"
									| substr(&apcvar.23,2,4)="1080" | substr(&apcvar.23,2,4)="1081" | substr(&apcvar.23,2,4)="1644" | substr(&apcvar.23,2,4)="1645"
									| substr(&apcvar.24,2,4)="1080" | substr(&apcvar.24,2,4)="1081" | substr(&apcvar.24,2,4)="1644" | substr(&apcvar.24,2,4)="1645"
									| substr(&apcvar.25,2,4)="1080" | substr(&apcvar.25,2,4)="1081" | substr(&apcvar.25,2,4)="1644" | substr(&apcvar.25,2,4)="1645"
									| substr(&apcvar.26,2,4)="1080" | substr(&apcvar.26,2,4)="1081" | substr(&apcvar.26,2,4)="1644" | substr(&apcvar.26,2,4)="1645"
									| substr(&apcvar.27,2,4)="1080" | substr(&apcvar.27,2,4)="1081" | substr(&apcvar.27,2,4)="1644" | substr(&apcvar.27,2,4)="1645"
									| substr(&apcvar.28,2,4)="1080" | substr(&apcvar.28,2,4)="1081" | substr(&apcvar.28,2,4)="1644" | substr(&apcvar.28,2,4)="1645"
									| substr(&apcvar.29,2,4)="1080" | substr(&apcvar.29,2,4)="1081" | substr(&apcvar.29,2,4)="1644" | substr(&apcvar.29,2,4)="1645"
									| substr(&apcvar.30,2,4)="1080" | substr(&apcvar.30,2,4)="1081" | substr(&apcvar.30,2,4)="1644" | substr(&apcvar.30,2,4)="1645"
									| substr(&apcvar.31,2,4)="1080" | substr(&apcvar.31,2,4)="1081" | substr(&apcvar.31,2,4)="1644" | substr(&apcvar.31,2,4)="1645"
									| substr(&apcvar.32,2,4)="1080" | substr(&apcvar.32,2,4)="1081" | substr(&apcvar.32,2,4)="1644" | substr(&apcvar.32,2,4)="1645"
									| substr(&apcvar.33,2,4)="1080" | substr(&apcvar.33,2,4)="1081" | substr(&apcvar.33,2,4)="1644" | substr(&apcvar.33,2,4)="1645"
									| substr(&apcvar.34,2,4)="1080" | substr(&apcvar.34,2,4)="1081" | substr(&apcvar.34,2,4)="1644" | substr(&apcvar.34,2,4)="1645"
									| substr(&apcvar.35,2,4)="1080" | substr(&apcvar.35,2,4)="1081" | substr(&apcvar.35,2,4)="1644" | substr(&apcvar.35,2,4)="1645"
									| substr(&apcvar.36,2,4)="1080" | substr(&apcvar.36,2,4)="1081" | substr(&apcvar.36,2,4)="1644" | substr(&apcvar.36,2,4)="1645"
									| substr(&apcvar.37,2,4)="1080" | substr(&apcvar.37,2,4)="1081" | substr(&apcvar.37,2,4)="1644" | substr(&apcvar.37,2,4)="1645"
									| substr(&apcvar.38,2,4)="1080" | substr(&apcvar.38,2,4)="1081" | substr(&apcvar.38,2,4)="1644" | substr(&apcvar.38,2,4)="1645"
									| substr(&apcvar.39,2,4)="1080" | substr(&apcvar.39,2,4)="1081" | substr(&apcvar.39,2,4)="1644" | substr(&apcvar.39,2,4)="1645"
									| substr(&apcvar.40,2,4)="1080" | substr(&apcvar.40,2,4)="1081" | substr(&apcvar.40,2,4)="1644" | substr(&apcvar.40,2,4)="1645"
									| substr(&apcvar.41,2,4)="1080" | substr(&apcvar.41,2,4)="1081" | substr(&apcvar.41,2,4)="1644" | substr(&apcvar.41,2,4)="1645"
									| substr(&apcvar.42,2,4)="1080" | substr(&apcvar.42,2,4)="1081" | substr(&apcvar.42,2,4)="1644" | substr(&apcvar.42,2,4)="1645"
									| substr(&apcvar.43,2,4)="1080" | substr(&apcvar.43,2,4)="1081" | substr(&apcvar.43,2,4)="1644" | substr(&apcvar.43,2,4)="1645"
									| substr(&apcvar.44,2,4)="1080" | substr(&apcvar.44,2,4)="1081" | substr(&apcvar.44,2,4)="1644" | substr(&apcvar.44,2,4)="1645"
									| substr(&apcvar.45,2,4)="1080" | substr(&apcvar.45,2,4)="1081" | substr(&apcvar.45,2,4)="1644" | substr(&apcvar.45,2,4)="1645";
				chem_pemetrexed 	= &hcpcsvar.1 ="J9305" | &hcpcsvar.1 ="C9213"
									| &hcpcsvar.2 ="J9305" | &hcpcsvar.2 ="C9213"
									| &hcpcsvar.3 ="J9305" | &hcpcsvar.3 ="C9213"
									| &hcpcsvar.4 ="J9305" | &hcpcsvar.4 ="C9213"
									| &hcpcsvar.5 ="J9305" | &hcpcsvar.5 ="C9213"
									| &hcpcsvar.6 ="J9305" | &hcpcsvar.6 ="C9213"
									| &hcpcsvar.7 ="J9305" | &hcpcsvar.7 ="C9213"
									| &hcpcsvar.8 ="J9305" | &hcpcsvar.8 ="C9213"
									| &hcpcsvar.9 ="J9305" | &hcpcsvar.9 ="C9213"
									| &hcpcsvar.10="J9305" | &hcpcsvar.10="C9213"
									| &hcpcsvar.11="J9305" | &hcpcsvar.11="C9213"
									| &hcpcsvar.12="J9305" | &hcpcsvar.12="C9213"
									| &hcpcsvar.13="J9305" | &hcpcsvar.13="C9213"
									| &hcpcsvar.14="J9305" | &hcpcsvar.14="C9213"
									| &hcpcsvar.15="J9305" | &hcpcsvar.15="C9213"
									| &hcpcsvar.16="J9305" | &hcpcsvar.16="C9213"
									| &hcpcsvar.17="J9305" | &hcpcsvar.17="C9213"
									| &hcpcsvar.18="J9305" | &hcpcsvar.18="C9213"
									| &hcpcsvar.19="J9305" | &hcpcsvar.19="C9213"
									| &hcpcsvar.20="J9305" | &hcpcsvar.20="C9213"
									| &hcpcsvar.21="J9305" | &hcpcsvar.21="C9213"
									| &hcpcsvar.22="J9305" | &hcpcsvar.22="C9213"
									| &hcpcsvar.23="J9305" | &hcpcsvar.23="C9213"
									| &hcpcsvar.24="J9305" | &hcpcsvar.24="C9213"
									| &hcpcsvar.25="J9305" | &hcpcsvar.25="C9213"
									| &hcpcsvar.26="J9305" | &hcpcsvar.26="C9213"
									| &hcpcsvar.27="J9305" | &hcpcsvar.27="C9213"
									| &hcpcsvar.28="J9305" | &hcpcsvar.28="C9213"
									| &hcpcsvar.29="J9305" | &hcpcsvar.29="C9213"
									| &hcpcsvar.30="J9305" | &hcpcsvar.30="C9213"
									| &hcpcsvar.31="J9305" | &hcpcsvar.31="C9213"
									| &hcpcsvar.32="J9305" | &hcpcsvar.32="C9213"
									| &hcpcsvar.33="J9305" | &hcpcsvar.33="C9213"
									| &hcpcsvar.34="J9305" | &hcpcsvar.34="C9213"
									| &hcpcsvar.35="J9305" | &hcpcsvar.35="C9213"
									| &hcpcsvar.36="J9305" | &hcpcsvar.36="C9213"
									| &hcpcsvar.37="J9305" | &hcpcsvar.37="C9213"
									| &hcpcsvar.38="J9305" | &hcpcsvar.38="C9213"
									| &hcpcsvar.39="J9305" | &hcpcsvar.39="C9213"
									| &hcpcsvar.40="J9305" | &hcpcsvar.40="C9213"
									| &hcpcsvar.41="J9305" | &hcpcsvar.41="C9213"
									| &hcpcsvar.42="J9305" | &hcpcsvar.42="C9213"
									| &hcpcsvar.43="J9305" | &hcpcsvar.43="C9213"
									| &hcpcsvar.44="J9305" | &hcpcsvar.44="C9213"
									| &hcpcsvar.45="J9305" | &hcpcsvar.45="C9213"
									| substr(&apcvar.1 ,2,4)="9213"
									| substr(&apcvar.2 ,2,4)="9213"
									| substr(&apcvar.3 ,2,4)="9213"
									| substr(&apcvar.4 ,2,4)="9213"
									| substr(&apcvar.5 ,2,4)="9213"
									| substr(&apcvar.6 ,2,4)="9213"
									| substr(&apcvar.7 ,2,4)="9213"
									| substr(&apcvar.8 ,2,4)="9213"
									| substr(&apcvar.9 ,2,4)="9213"
									| substr(&apcvar.10,2,4)="9213"
									| substr(&apcvar.11,2,4)="9213"
									| substr(&apcvar.12,2,4)="9213"
									| substr(&apcvar.13,2,4)="9213"
									| substr(&apcvar.14,2,4)="9213"
									| substr(&apcvar.15,2,4)="9213"
									| substr(&apcvar.16,2,4)="9213"
									| substr(&apcvar.17,2,4)="9213"
									| substr(&apcvar.18,2,4)="9213"
									| substr(&apcvar.19,2,4)="9213"
									| substr(&apcvar.20,2,4)="9213"
									| substr(&apcvar.21,2,4)="9213"
									| substr(&apcvar.22,2,4)="9213"
									| substr(&apcvar.23,2,4)="9213"
									| substr(&apcvar.24,2,4)="9213"
									| substr(&apcvar.25,2,4)="9213"
									| substr(&apcvar.26,2,4)="9213"
									| substr(&apcvar.27,2,4)="9213"
									| substr(&apcvar.28,2,4)="9213"
									| substr(&apcvar.29,2,4)="9213"
									| substr(&apcvar.30,2,4)="9213"
									| substr(&apcvar.31,2,4)="9213"
									| substr(&apcvar.32,2,4)="9213"
									| substr(&apcvar.33,2,4)="9213"
									| substr(&apcvar.34,2,4)="9213"
									| substr(&apcvar.35,2,4)="9213"
									| substr(&apcvar.36,2,4)="9213"
									| substr(&apcvar.37,2,4)="9213"
									| substr(&apcvar.38,2,4)="9213"
									| substr(&apcvar.39,2,4)="9213"
									| substr(&apcvar.40,2,4)="9213"
									| substr(&apcvar.41,2,4)="9213"
									| substr(&apcvar.42,2,4)="9213"
									| substr(&apcvar.43,2,4)="9213"
									| substr(&apcvar.44,2,4)="9213"
									| substr(&apcvar.45,2,4)="9213";
				chem_cetuximab 		= &hcpcsvar.1 ="J9055" | &hcpcsvar.1 ="C9215"
									| &hcpcsvar.2 ="J9055" | &hcpcsvar.2 ="C9215"
									| &hcpcsvar.3 ="J9055" | &hcpcsvar.3 ="C9215"
									| &hcpcsvar.4 ="J9055" | &hcpcsvar.4 ="C9215"
									| &hcpcsvar.5 ="J9055" | &hcpcsvar.5 ="C9215"
									| &hcpcsvar.6 ="J9055" | &hcpcsvar.6 ="C9215"
									| &hcpcsvar.7 ="J9055" | &hcpcsvar.7 ="C9215"
									| &hcpcsvar.8 ="J9055" | &hcpcsvar.8 ="C9215"
									| &hcpcsvar.9 ="J9055" | &hcpcsvar.9 ="C9215"
									| &hcpcsvar.10="J9055" | &hcpcsvar.10="C9215"
									| &hcpcsvar.11="J9055" | &hcpcsvar.11="C9215"
									| &hcpcsvar.12="J9055" | &hcpcsvar.12="C9215"
									| &hcpcsvar.13="J9055" | &hcpcsvar.13="C9215"
									| &hcpcsvar.14="J9055" | &hcpcsvar.14="C9215"
									| &hcpcsvar.15="J9055" | &hcpcsvar.15="C9215"
									| &hcpcsvar.16="J9055" | &hcpcsvar.16="C9215"
									| &hcpcsvar.17="J9055" | &hcpcsvar.17="C9215"
									| &hcpcsvar.18="J9055" | &hcpcsvar.18="C9215"
									| &hcpcsvar.19="J9055" | &hcpcsvar.19="C9215"
									| &hcpcsvar.20="J9055" | &hcpcsvar.20="C9215"
									| &hcpcsvar.21="J9055" | &hcpcsvar.21="C9215"
									| &hcpcsvar.22="J9055" | &hcpcsvar.22="C9215"
									| &hcpcsvar.23="J9055" | &hcpcsvar.23="C9215"
									| &hcpcsvar.24="J9055" | &hcpcsvar.24="C9215"
									| &hcpcsvar.25="J9055" | &hcpcsvar.25="C9215"
									| &hcpcsvar.26="J9055" | &hcpcsvar.26="C9215"
									| &hcpcsvar.27="J9055" | &hcpcsvar.27="C9215"
									| &hcpcsvar.28="J9055" | &hcpcsvar.28="C9215"
									| &hcpcsvar.29="J9055" | &hcpcsvar.29="C9215"
									| &hcpcsvar.30="J9055" | &hcpcsvar.30="C9215"
									| &hcpcsvar.31="J9055" | &hcpcsvar.31="C9215"
									| &hcpcsvar.32="J9055" | &hcpcsvar.32="C9215"
									| &hcpcsvar.33="J9055" | &hcpcsvar.33="C9215"
									| &hcpcsvar.34="J9055" | &hcpcsvar.34="C9215"
									| &hcpcsvar.35="J9055" | &hcpcsvar.35="C9215"
									| &hcpcsvar.36="J9055" | &hcpcsvar.36="C9215"
									| &hcpcsvar.37="J9055" | &hcpcsvar.37="C9215"
									| &hcpcsvar.38="J9055" | &hcpcsvar.38="C9215"
									| &hcpcsvar.39="J9055" | &hcpcsvar.39="C9215"
									| &hcpcsvar.40="J9055" | &hcpcsvar.40="C9215"
									| &hcpcsvar.41="J9055" | &hcpcsvar.41="C9215"
									| &hcpcsvar.42="J9055" | &hcpcsvar.42="C9215"
									| &hcpcsvar.43="J9055" | &hcpcsvar.43="C9215"
									| &hcpcsvar.44="J9055" | &hcpcsvar.44="C9215"
									| &hcpcsvar.45="J9055" | &hcpcsvar.45="C9215"
									| substr(&apcvar.1 ,2,4)="9215"
									| substr(&apcvar.2 ,2,4)="9215"
									| substr(&apcvar.3 ,2,4)="9215"
									| substr(&apcvar.4 ,2,4)="9215"
									| substr(&apcvar.5 ,2,4)="9215"
									| substr(&apcvar.6 ,2,4)="9215"
									| substr(&apcvar.7 ,2,4)="9215"
									| substr(&apcvar.8 ,2,4)="9215"
									| substr(&apcvar.9 ,2,4)="9215"
									| substr(&apcvar.10,2,4)="9215"
									| substr(&apcvar.11,2,4)="9215"
									| substr(&apcvar.12,2,4)="9215"
									| substr(&apcvar.13,2,4)="9215"
									| substr(&apcvar.14,2,4)="9215"
									| substr(&apcvar.15,2,4)="9215"
									| substr(&apcvar.16,2,4)="9215"
									| substr(&apcvar.17,2,4)="9215"
									| substr(&apcvar.18,2,4)="9215"
									| substr(&apcvar.19,2,4)="9215"
									| substr(&apcvar.20,2,4)="9215"
									| substr(&apcvar.21,2,4)="9215"
									| substr(&apcvar.22,2,4)="9215"
									| substr(&apcvar.23,2,4)="9215"
									| substr(&apcvar.24,2,4)="9215"
									| substr(&apcvar.25,2,4)="9215"
									| substr(&apcvar.26,2,4)="9215"
									| substr(&apcvar.27,2,4)="9215"
									| substr(&apcvar.28,2,4)="9215"
									| substr(&apcvar.29,2,4)="9215"
									| substr(&apcvar.30,2,4)="9215"
									| substr(&apcvar.31,2,4)="9215"
									| substr(&apcvar.32,2,4)="9215"
									| substr(&apcvar.33,2,4)="9215"
									| substr(&apcvar.34,2,4)="9215"
									| substr(&apcvar.35,2,4)="9215"
									| substr(&apcvar.36,2,4)="9215"
									| substr(&apcvar.37,2,4)="9215"
									| substr(&apcvar.38,2,4)="9215"
									| substr(&apcvar.39,2,4)="9215"
									| substr(&apcvar.40,2,4)="9215"
									| substr(&apcvar.41,2,4)="9215"
									| substr(&apcvar.42,2,4)="9215"
									| substr(&apcvar.43,2,4)="9215"
									| substr(&apcvar.44,2,4)="9215"
									| substr(&apcvar.45,2,4)="9215";
				chem_bevacizumab 	= &hcpcsvar.1 ="J9035" | &hcpcsvar.1 ="C9257" | &hcpcsvar.1 ="Q2024" | &hcpcsvar.1 ="S0116" | &hcpcsvar.1 ="C9214"
									| &hcpcsvar.2 ="J9035" | &hcpcsvar.2 ="C9257" | &hcpcsvar.2 ="Q2024" | &hcpcsvar.2 ="S0116" | &hcpcsvar.2 ="C9214"
									| &hcpcsvar.3 ="J9035" | &hcpcsvar.3 ="C9257" | &hcpcsvar.3 ="Q2024" | &hcpcsvar.3 ="S0116" | &hcpcsvar.3 ="C9214"
									| &hcpcsvar.4 ="J9035" | &hcpcsvar.4 ="C9257" | &hcpcsvar.4 ="Q2024" | &hcpcsvar.4 ="S0116" | &hcpcsvar.4 ="C9214"
									| &hcpcsvar.5 ="J9035" | &hcpcsvar.5 ="C9257" | &hcpcsvar.5 ="Q2024" | &hcpcsvar.5 ="S0116" | &hcpcsvar.5 ="C9214"
									| &hcpcsvar.6 ="J9035" | &hcpcsvar.6 ="C9257" | &hcpcsvar.6 ="Q2024" | &hcpcsvar.6 ="S0116" | &hcpcsvar.6 ="C9214"
									| &hcpcsvar.7 ="J9035" | &hcpcsvar.7 ="C9257" | &hcpcsvar.7 ="Q2024" | &hcpcsvar.7 ="S0116" | &hcpcsvar.7 ="C9214"
									| &hcpcsvar.8 ="J9035" | &hcpcsvar.8 ="C9257" | &hcpcsvar.8 ="Q2024" | &hcpcsvar.8 ="S0116" | &hcpcsvar.8 ="C9214"
									| &hcpcsvar.9 ="J9035" | &hcpcsvar.9 ="C9257" | &hcpcsvar.9 ="Q2024" | &hcpcsvar.9 ="S0116" | &hcpcsvar.9 ="C9214"
									| &hcpcsvar.10="J9035" | &hcpcsvar.10="C9257" | &hcpcsvar.10="Q2024" | &hcpcsvar.10="S0116" | &hcpcsvar.10="C9214"
									| &hcpcsvar.11="J9035" | &hcpcsvar.11="C9257" | &hcpcsvar.11="Q2024" | &hcpcsvar.11="S0116" | &hcpcsvar.11="C9214"
									| &hcpcsvar.12="J9035" | &hcpcsvar.12="C9257" | &hcpcsvar.12="Q2024" | &hcpcsvar.12="S0116" | &hcpcsvar.12="C9214"
									| &hcpcsvar.13="J9035" | &hcpcsvar.13="C9257" | &hcpcsvar.13="Q2024" | &hcpcsvar.13="S0116" | &hcpcsvar.13="C9214"
									| &hcpcsvar.14="J9035" | &hcpcsvar.14="C9257" | &hcpcsvar.14="Q2024" | &hcpcsvar.14="S0116" | &hcpcsvar.14="C9214"
									| &hcpcsvar.15="J9035" | &hcpcsvar.15="C9257" | &hcpcsvar.15="Q2024" | &hcpcsvar.15="S0116" | &hcpcsvar.15="C9214"
									| &hcpcsvar.16="J9035" | &hcpcsvar.16="C9257" | &hcpcsvar.16="Q2024" | &hcpcsvar.16="S0116" | &hcpcsvar.16="C9214"
									| &hcpcsvar.17="J9035" | &hcpcsvar.17="C9257" | &hcpcsvar.17="Q2024" | &hcpcsvar.17="S0116" | &hcpcsvar.17="C9214"
									| &hcpcsvar.18="J9035" | &hcpcsvar.18="C9257" | &hcpcsvar.18="Q2024" | &hcpcsvar.18="S0116" | &hcpcsvar.18="C9214"
									| &hcpcsvar.19="J9035" | &hcpcsvar.19="C9257" | &hcpcsvar.19="Q2024" | &hcpcsvar.19="S0116" | &hcpcsvar.19="C9214"
									| &hcpcsvar.20="J9035" | &hcpcsvar.20="C9257" | &hcpcsvar.20="Q2024" | &hcpcsvar.20="S0116" | &hcpcsvar.20="C9214"
									| &hcpcsvar.21="J9035" | &hcpcsvar.21="C9257" | &hcpcsvar.21="Q2024" | &hcpcsvar.21="S0116" | &hcpcsvar.21="C9214"
									| &hcpcsvar.22="J9035" | &hcpcsvar.22="C9257" | &hcpcsvar.22="Q2024" | &hcpcsvar.22="S0116" | &hcpcsvar.22="C9214"
									| &hcpcsvar.23="J9035" | &hcpcsvar.23="C9257" | &hcpcsvar.23="Q2024" | &hcpcsvar.23="S0116" | &hcpcsvar.23="C9214"
									| &hcpcsvar.24="J9035" | &hcpcsvar.24="C9257" | &hcpcsvar.24="Q2024" | &hcpcsvar.24="S0116" | &hcpcsvar.24="C9214"
									| &hcpcsvar.25="J9035" | &hcpcsvar.25="C9257" | &hcpcsvar.25="Q2024" | &hcpcsvar.25="S0116" | &hcpcsvar.25="C9214"
									| &hcpcsvar.26="J9035" | &hcpcsvar.26="C9257" | &hcpcsvar.26="Q2024" | &hcpcsvar.26="S0116" | &hcpcsvar.26="C9214"
									| &hcpcsvar.27="J9035" | &hcpcsvar.27="C9257" | &hcpcsvar.27="Q2024" | &hcpcsvar.27="S0116" | &hcpcsvar.27="C9214"
									| &hcpcsvar.28="J9035" | &hcpcsvar.28="C9257" | &hcpcsvar.28="Q2024" | &hcpcsvar.28="S0116" | &hcpcsvar.28="C9214"
									| &hcpcsvar.29="J9035" | &hcpcsvar.29="C9257" | &hcpcsvar.29="Q2024" | &hcpcsvar.29="S0116" | &hcpcsvar.29="C9214"
									| &hcpcsvar.30="J9035" | &hcpcsvar.30="C9257" | &hcpcsvar.30="Q2024" | &hcpcsvar.30="S0116" | &hcpcsvar.30="C9214"
									| &hcpcsvar.31="J9035" | &hcpcsvar.31="C9257" | &hcpcsvar.31="Q2024" | &hcpcsvar.31="S0116" | &hcpcsvar.31="C9214"
									| &hcpcsvar.32="J9035" | &hcpcsvar.32="C9257" | &hcpcsvar.32="Q2024" | &hcpcsvar.32="S0116" | &hcpcsvar.32="C9214"
									| &hcpcsvar.33="J9035" | &hcpcsvar.33="C9257" | &hcpcsvar.33="Q2024" | &hcpcsvar.33="S0116" | &hcpcsvar.33="C9214"
									| &hcpcsvar.34="J9035" | &hcpcsvar.34="C9257" | &hcpcsvar.34="Q2024" | &hcpcsvar.34="S0116" | &hcpcsvar.34="C9214"
									| &hcpcsvar.35="J9035" | &hcpcsvar.35="C9257" | &hcpcsvar.35="Q2024" | &hcpcsvar.35="S0116" | &hcpcsvar.35="C9214"
									| &hcpcsvar.36="J9035" | &hcpcsvar.36="C9257" | &hcpcsvar.36="Q2024" | &hcpcsvar.36="S0116" | &hcpcsvar.36="C9214"
									| &hcpcsvar.37="J9035" | &hcpcsvar.37="C9257" | &hcpcsvar.37="Q2024" | &hcpcsvar.37="S0116" | &hcpcsvar.37="C9214"
									| &hcpcsvar.38="J9035" | &hcpcsvar.38="C9257" | &hcpcsvar.38="Q2024" | &hcpcsvar.38="S0116" | &hcpcsvar.38="C9214"
									| &hcpcsvar.39="J9035" | &hcpcsvar.39="C9257" | &hcpcsvar.39="Q2024" | &hcpcsvar.39="S0116" | &hcpcsvar.39="C9214"
									| &hcpcsvar.40="J9035" | &hcpcsvar.40="C9257" | &hcpcsvar.40="Q2024" | &hcpcsvar.40="S0116" | &hcpcsvar.40="C9214"
									| &hcpcsvar.41="J9035" | &hcpcsvar.41="C9257" | &hcpcsvar.41="Q2024" | &hcpcsvar.41="S0116" | &hcpcsvar.41="C9214"
									| &hcpcsvar.42="J9035" | &hcpcsvar.42="C9257" | &hcpcsvar.42="Q2024" | &hcpcsvar.42="S0116" | &hcpcsvar.42="C9214"
									| &hcpcsvar.43="J9035" | &hcpcsvar.43="C9257" | &hcpcsvar.43="Q2024" | &hcpcsvar.43="S0116" | &hcpcsvar.43="C9214"
									| &hcpcsvar.44="J9035" | &hcpcsvar.44="C9257" | &hcpcsvar.44="Q2024" | &hcpcsvar.44="S0116" | &hcpcsvar.44="C9214"
									| &hcpcsvar.45="J9035" | &hcpcsvar.45="C9257" | &hcpcsvar.45="Q2024" | &hcpcsvar.45="S0116" | &hcpcsvar.45="C9214"
									| substr(&apcvar.1 ,2,4)="9257" | substr(&apcvar.1 ,2,4)="9214" | substr(&apcvar.1 ,2,4)="1281"
									| substr(&apcvar.2 ,2,4)="9257" | substr(&apcvar.2 ,2,4)="9214" | substr(&apcvar.2 ,2,4)="1281"
									| substr(&apcvar.3 ,2,4)="9257" | substr(&apcvar.3 ,2,4)="9214" | substr(&apcvar.3 ,2,4)="1281"
									| substr(&apcvar.4 ,2,4)="9257" | substr(&apcvar.4 ,2,4)="9214" | substr(&apcvar.4 ,2,4)="1281"
									| substr(&apcvar.5 ,2,4)="9257" | substr(&apcvar.5 ,2,4)="9214" | substr(&apcvar.5 ,2,4)="1281"
									| substr(&apcvar.6 ,2,4)="9257" | substr(&apcvar.6 ,2,4)="9214" | substr(&apcvar.6 ,2,4)="1281"
									| substr(&apcvar.7 ,2,4)="9257" | substr(&apcvar.7 ,2,4)="9214" | substr(&apcvar.7 ,2,4)="1281"
									| substr(&apcvar.8 ,2,4)="9257" | substr(&apcvar.8 ,2,4)="9214" | substr(&apcvar.8 ,2,4)="1281"
									| substr(&apcvar.9 ,2,4)="9257" | substr(&apcvar.9 ,2,4)="9214" | substr(&apcvar.9 ,2,4)="1281"
									| substr(&apcvar.10,2,4)="9257" | substr(&apcvar.10,2,4)="9214" | substr(&apcvar.10,2,4)="1281"
									| substr(&apcvar.11,2,4)="9257" | substr(&apcvar.11,2,4)="9214" | substr(&apcvar.11,2,4)="1281"
									| substr(&apcvar.12,2,4)="9257" | substr(&apcvar.12,2,4)="9214" | substr(&apcvar.12,2,4)="1281"
									| substr(&apcvar.13,2,4)="9257" | substr(&apcvar.13,2,4)="9214" | substr(&apcvar.13,2,4)="1281"
									| substr(&apcvar.14,2,4)="9257" | substr(&apcvar.14,2,4)="9214" | substr(&apcvar.14,2,4)="1281"
									| substr(&apcvar.15,2,4)="9257" | substr(&apcvar.15,2,4)="9214" | substr(&apcvar.15,2,4)="1281"
									| substr(&apcvar.16,2,4)="9257" | substr(&apcvar.16,2,4)="9214" | substr(&apcvar.16,2,4)="1281"
									| substr(&apcvar.17,2,4)="9257" | substr(&apcvar.17,2,4)="9214" | substr(&apcvar.17,2,4)="1281"
									| substr(&apcvar.18,2,4)="9257" | substr(&apcvar.18,2,4)="9214" | substr(&apcvar.18,2,4)="1281"
									| substr(&apcvar.19,2,4)="9257" | substr(&apcvar.19,2,4)="9214" | substr(&apcvar.19,2,4)="1281"
									| substr(&apcvar.20,2,4)="9257" | substr(&apcvar.20,2,4)="9214" | substr(&apcvar.20,2,4)="1281"
									| substr(&apcvar.21,2,4)="9257" | substr(&apcvar.21,2,4)="9214" | substr(&apcvar.21,2,4)="1281"
									| substr(&apcvar.22,2,4)="9257" | substr(&apcvar.22,2,4)="9214" | substr(&apcvar.22,2,4)="1281"
									| substr(&apcvar.23,2,4)="9257" | substr(&apcvar.23,2,4)="9214" | substr(&apcvar.23,2,4)="1281"
									| substr(&apcvar.24,2,4)="9257" | substr(&apcvar.24,2,4)="9214" | substr(&apcvar.24,2,4)="1281"
									| substr(&apcvar.25,2,4)="9257" | substr(&apcvar.25,2,4)="9214" | substr(&apcvar.25,2,4)="1281"
									| substr(&apcvar.26,2,4)="9257" | substr(&apcvar.26,2,4)="9214" | substr(&apcvar.26,2,4)="1281"
									| substr(&apcvar.27,2,4)="9257" | substr(&apcvar.27,2,4)="9214" | substr(&apcvar.27,2,4)="1281"
									| substr(&apcvar.28,2,4)="9257" | substr(&apcvar.28,2,4)="9214" | substr(&apcvar.28,2,4)="1281"
									| substr(&apcvar.29,2,4)="9257" | substr(&apcvar.29,2,4)="9214" | substr(&apcvar.29,2,4)="1281"
									| substr(&apcvar.30,2,4)="9257" | substr(&apcvar.30,2,4)="9214" | substr(&apcvar.30,2,4)="1281"
									| substr(&apcvar.31,2,4)="9257" | substr(&apcvar.31,2,4)="9214" | substr(&apcvar.31,2,4)="1281"
									| substr(&apcvar.32,2,4)="9257" | substr(&apcvar.32,2,4)="9214" | substr(&apcvar.32,2,4)="1281"
									| substr(&apcvar.33,2,4)="9257" | substr(&apcvar.33,2,4)="9214" | substr(&apcvar.33,2,4)="1281"
									| substr(&apcvar.34,2,4)="9257" | substr(&apcvar.34,2,4)="9214" | substr(&apcvar.34,2,4)="1281"
									| substr(&apcvar.35,2,4)="9257" | substr(&apcvar.35,2,4)="9214" | substr(&apcvar.35,2,4)="1281"
									| substr(&apcvar.36,2,4)="9257" | substr(&apcvar.36,2,4)="9214" | substr(&apcvar.36,2,4)="1281"
									| substr(&apcvar.37,2,4)="9257" | substr(&apcvar.37,2,4)="9214" | substr(&apcvar.37,2,4)="1281"
									| substr(&apcvar.38,2,4)="9257" | substr(&apcvar.38,2,4)="9214" | substr(&apcvar.38,2,4)="1281"
									| substr(&apcvar.39,2,4)="9257" | substr(&apcvar.39,2,4)="9214" | substr(&apcvar.39,2,4)="1281"
									| substr(&apcvar.40,2,4)="9257" | substr(&apcvar.40,2,4)="9214" | substr(&apcvar.40,2,4)="1281"
									| substr(&apcvar.41,2,4)="9257" | substr(&apcvar.41,2,4)="9214" | substr(&apcvar.41,2,4)="1281"
									| substr(&apcvar.42,2,4)="9257" | substr(&apcvar.42,2,4)="9214" | substr(&apcvar.42,2,4)="1281"
									| substr(&apcvar.43,2,4)="9257" | substr(&apcvar.43,2,4)="9214" | substr(&apcvar.43,2,4)="1281"
									| substr(&apcvar.44,2,4)="9257" | substr(&apcvar.44,2,4)="9214" | substr(&apcvar.44,2,4)="1281"
									| substr(&apcvar.45,2,4)="9257" | substr(&apcvar.45,2,4)="9214" | substr(&apcvar.45,2,4)="1281";
				chem_clofarabine 	= &hcpcsvar.1 ="J9027" | &hcpcsvar.1 ="C9129"
									| &hcpcsvar.2 ="J9027" | &hcpcsvar.2 ="C9129"
									| &hcpcsvar.3 ="J9027" | &hcpcsvar.3 ="C9129"
									| &hcpcsvar.4 ="J9027" | &hcpcsvar.4 ="C9129"
									| &hcpcsvar.5 ="J9027" | &hcpcsvar.5 ="C9129"
									| &hcpcsvar.6 ="J9027" | &hcpcsvar.6 ="C9129"
									| &hcpcsvar.7 ="J9027" | &hcpcsvar.7 ="C9129"
									| &hcpcsvar.8 ="J9027" | &hcpcsvar.8 ="C9129"
									| &hcpcsvar.9 ="J9027" | &hcpcsvar.9 ="C9129"
									| &hcpcsvar.10="J9027" | &hcpcsvar.10="C9129"
									| &hcpcsvar.11="J9027" | &hcpcsvar.11="C9129"
									| &hcpcsvar.12="J9027" | &hcpcsvar.12="C9129"
									| &hcpcsvar.13="J9027" | &hcpcsvar.13="C9129"
									| &hcpcsvar.14="J9027" | &hcpcsvar.14="C9129"
									| &hcpcsvar.15="J9027" | &hcpcsvar.15="C9129"
									| &hcpcsvar.16="J9027" | &hcpcsvar.16="C9129"
									| &hcpcsvar.17="J9027" | &hcpcsvar.17="C9129"
									| &hcpcsvar.18="J9027" | &hcpcsvar.18="C9129"
									| &hcpcsvar.19="J9027" | &hcpcsvar.19="C9129"
									| &hcpcsvar.20="J9027" | &hcpcsvar.20="C9129"
									| &hcpcsvar.21="J9027" | &hcpcsvar.21="C9129"
									| &hcpcsvar.22="J9027" | &hcpcsvar.22="C9129"
									| &hcpcsvar.23="J9027" | &hcpcsvar.23="C9129"
									| &hcpcsvar.24="J9027" | &hcpcsvar.24="C9129"
									| &hcpcsvar.25="J9027" | &hcpcsvar.25="C9129"
									| &hcpcsvar.26="J9027" | &hcpcsvar.26="C9129"
									| &hcpcsvar.27="J9027" | &hcpcsvar.27="C9129"
									| &hcpcsvar.28="J9027" | &hcpcsvar.28="C9129"
									| &hcpcsvar.29="J9027" | &hcpcsvar.29="C9129"
									| &hcpcsvar.30="J9027" | &hcpcsvar.30="C9129"
									| &hcpcsvar.31="J9027" | &hcpcsvar.31="C9129"
									| &hcpcsvar.32="J9027" | &hcpcsvar.32="C9129"
									| &hcpcsvar.33="J9027" | &hcpcsvar.33="C9129"
									| &hcpcsvar.34="J9027" | &hcpcsvar.34="C9129"
									| &hcpcsvar.35="J9027" | &hcpcsvar.35="C9129"
									| &hcpcsvar.36="J9027" | &hcpcsvar.36="C9129"
									| &hcpcsvar.37="J9027" | &hcpcsvar.37="C9129"
									| &hcpcsvar.38="J9027" | &hcpcsvar.38="C9129"
									| &hcpcsvar.39="J9027" | &hcpcsvar.39="C9129"
									| &hcpcsvar.40="J9027" | &hcpcsvar.40="C9129"
									| &hcpcsvar.41="J9027" | &hcpcsvar.41="C9129"
									| &hcpcsvar.42="J9027" | &hcpcsvar.42="C9129"
									| &hcpcsvar.43="J9027" | &hcpcsvar.43="C9129"
									| &hcpcsvar.44="J9027" | &hcpcsvar.44="C9129"
									| &hcpcsvar.45="J9027" | &hcpcsvar.45="C9129"
									| substr(&apcvar.1 ,2,4)="9129" | substr(&apcvar.1 ,2,4)="1710"
									| substr(&apcvar.2 ,2,4)="9129" | substr(&apcvar.2 ,2,4)="1710"
									| substr(&apcvar.3 ,2,4)="9129" | substr(&apcvar.3 ,2,4)="1710"
									| substr(&apcvar.4 ,2,4)="9129" | substr(&apcvar.4 ,2,4)="1710"
									| substr(&apcvar.5 ,2,4)="9129" | substr(&apcvar.5 ,2,4)="1710"
									| substr(&apcvar.6 ,2,4)="9129" | substr(&apcvar.6 ,2,4)="1710"
									| substr(&apcvar.7 ,2,4)="9129" | substr(&apcvar.7 ,2,4)="1710"
									| substr(&apcvar.8 ,2,4)="9129" | substr(&apcvar.8 ,2,4)="1710"
									| substr(&apcvar.9 ,2,4)="9129" | substr(&apcvar.9 ,2,4)="1710"
									| substr(&apcvar.10,2,4)="9129" | substr(&apcvar.10,2,4)="1710"
									| substr(&apcvar.11,2,4)="9129" | substr(&apcvar.11,2,4)="1710"
									| substr(&apcvar.12,2,4)="9129" | substr(&apcvar.12,2,4)="1710"
									| substr(&apcvar.13,2,4)="9129" | substr(&apcvar.13,2,4)="1710"
									| substr(&apcvar.14,2,4)="9129" | substr(&apcvar.14,2,4)="1710"
									| substr(&apcvar.15,2,4)="9129" | substr(&apcvar.15,2,4)="1710"
									| substr(&apcvar.16,2,4)="9129" | substr(&apcvar.16,2,4)="1710"
									| substr(&apcvar.17,2,4)="9129" | substr(&apcvar.17,2,4)="1710"
									| substr(&apcvar.18,2,4)="9129" | substr(&apcvar.18,2,4)="1710"
									| substr(&apcvar.19,2,4)="9129" | substr(&apcvar.19,2,4)="1710"
									| substr(&apcvar.20,2,4)="9129" | substr(&apcvar.20,2,4)="1710"
									| substr(&apcvar.21,2,4)="9129" | substr(&apcvar.21,2,4)="1710"
									| substr(&apcvar.22,2,4)="9129" | substr(&apcvar.22,2,4)="1710"
									| substr(&apcvar.23,2,4)="9129" | substr(&apcvar.23,2,4)="1710"
									| substr(&apcvar.24,2,4)="9129" | substr(&apcvar.24,2,4)="1710"
									| substr(&apcvar.25,2,4)="9129" | substr(&apcvar.25,2,4)="1710"
									| substr(&apcvar.26,2,4)="9129" | substr(&apcvar.26,2,4)="1710"
									| substr(&apcvar.27,2,4)="9129" | substr(&apcvar.27,2,4)="1710"
									| substr(&apcvar.28,2,4)="9129" | substr(&apcvar.28,2,4)="1710"
									| substr(&apcvar.29,2,4)="9129" | substr(&apcvar.29,2,4)="1710"
									| substr(&apcvar.30,2,4)="9129" | substr(&apcvar.30,2,4)="1710"
									| substr(&apcvar.31,2,4)="9129" | substr(&apcvar.31,2,4)="1710"
									| substr(&apcvar.32,2,4)="9129" | substr(&apcvar.32,2,4)="1710"
									| substr(&apcvar.33,2,4)="9129" | substr(&apcvar.33,2,4)="1710"
									| substr(&apcvar.34,2,4)="9129" | substr(&apcvar.34,2,4)="1710"
									| substr(&apcvar.35,2,4)="9129" | substr(&apcvar.35,2,4)="1710"
									| substr(&apcvar.36,2,4)="9129" | substr(&apcvar.36,2,4)="1710"
									| substr(&apcvar.37,2,4)="9129" | substr(&apcvar.37,2,4)="1710"
									| substr(&apcvar.38,2,4)="9129" | substr(&apcvar.38,2,4)="1710"
									| substr(&apcvar.39,2,4)="9129" | substr(&apcvar.39,2,4)="1710"
									| substr(&apcvar.40,2,4)="9129" | substr(&apcvar.40,2,4)="1710"
									| substr(&apcvar.41,2,4)="9129" | substr(&apcvar.41,2,4)="1710"
									| substr(&apcvar.42,2,4)="9129" | substr(&apcvar.42,2,4)="1710"
									| substr(&apcvar.43,2,4)="9129" | substr(&apcvar.43,2,4)="1710"
									| substr(&apcvar.44,2,4)="9129" | substr(&apcvar.44,2,4)="1710"
									| substr(&apcvar.45,2,4)="9129" | substr(&apcvar.45,2,4)="1710";
				chem_nelarabine 	= &hcpcsvar.1 ="J9261"
									| &hcpcsvar.2 ="J9261"
									| &hcpcsvar.3 ="J9261"
									| &hcpcsvar.4 ="J9261"
									| &hcpcsvar.5 ="J9261"
									| &hcpcsvar.6 ="J9261"
									| &hcpcsvar.7 ="J9261"
									| &hcpcsvar.8 ="J9261"
									| &hcpcsvar.9 ="J9261"
									| &hcpcsvar.10="J9261"
									| &hcpcsvar.11="J9261"
									| &hcpcsvar.12="J9261"
									| &hcpcsvar.13="J9261"
									| &hcpcsvar.14="J9261"
									| &hcpcsvar.15="J9261"
									| &hcpcsvar.16="J9261"
									| &hcpcsvar.17="J9261"
									| &hcpcsvar.18="J9261"
									| &hcpcsvar.19="J9261"
									| &hcpcsvar.20="J9261"
									| &hcpcsvar.21="J9261"
									| &hcpcsvar.22="J9261"
									| &hcpcsvar.23="J9261"
									| &hcpcsvar.24="J9261"
									| &hcpcsvar.25="J9261"
									| &hcpcsvar.26="J9261"
									| &hcpcsvar.27="J9261"
									| &hcpcsvar.28="J9261"
									| &hcpcsvar.29="J9261"
									| &hcpcsvar.30="J9261"
									| &hcpcsvar.31="J9261"
									| &hcpcsvar.32="J9261"
									| &hcpcsvar.33="J9261"
									| &hcpcsvar.34="J9261"
									| &hcpcsvar.35="J9261"
									| &hcpcsvar.36="J9261"
									| &hcpcsvar.37="J9261"
									| &hcpcsvar.38="J9261"
									| &hcpcsvar.39="J9261"
									| &hcpcsvar.40="J9261"
									| &hcpcsvar.41="J9261"
									| &hcpcsvar.42="J9261"
									| &hcpcsvar.43="J9261"
									| &hcpcsvar.44="J9261"
									| &hcpcsvar.45="J9261"
									| substr(&apcvar.1 ,2,4)="0825"
									| substr(&apcvar.2 ,2,4)="0825"
									| substr(&apcvar.3 ,2,4)="0825"
									| substr(&apcvar.4 ,2,4)="0825"
									| substr(&apcvar.5 ,2,4)="0825"
									| substr(&apcvar.6 ,2,4)="0825"
									| substr(&apcvar.7 ,2,4)="0825"
									| substr(&apcvar.8 ,2,4)="0825"
									| substr(&apcvar.9 ,2,4)="0825"
									| substr(&apcvar.10,2,4)="0825"
									| substr(&apcvar.11,2,4)="0825"
									| substr(&apcvar.12,2,4)="0825"
									| substr(&apcvar.13,2,4)="0825"
									| substr(&apcvar.14,2,4)="0825"
									| substr(&apcvar.15,2,4)="0825"
									| substr(&apcvar.16,2,4)="0825"
									| substr(&apcvar.17,2,4)="0825"
									| substr(&apcvar.18,2,4)="0825"
									| substr(&apcvar.19,2,4)="0825"
									| substr(&apcvar.20,2,4)="0825"
									| substr(&apcvar.21,2,4)="0825"
									| substr(&apcvar.22,2,4)="0825"
									| substr(&apcvar.23,2,4)="0825"
									| substr(&apcvar.24,2,4)="0825"
									| substr(&apcvar.25,2,4)="0825"
									| substr(&apcvar.26,2,4)="0825"
									| substr(&apcvar.27,2,4)="0825"
									| substr(&apcvar.28,2,4)="0825"
									| substr(&apcvar.29,2,4)="0825"
									| substr(&apcvar.30,2,4)="0825"
									| substr(&apcvar.31,2,4)="0825"
									| substr(&apcvar.32,2,4)="0825"
									| substr(&apcvar.33,2,4)="0825"
									| substr(&apcvar.34,2,4)="0825"
									| substr(&apcvar.35,2,4)="0825"
									| substr(&apcvar.36,2,4)="0825"
									| substr(&apcvar.37,2,4)="0825"
									| substr(&apcvar.38,2,4)="0825"
									| substr(&apcvar.39,2,4)="0825"
									| substr(&apcvar.40,2,4)="0825"
									| substr(&apcvar.41,2,4)="0825"
									| substr(&apcvar.42,2,4)="0825"
									| substr(&apcvar.43,2,4)="0825"
									| substr(&apcvar.44,2,4)="0825"
									| substr(&apcvar.45,2,4)="0825";
				chem_decitabine 	= &hcpcsvar.1 ="J0894" | &hcpcsvar.1 ="C9231"
									| &hcpcsvar.2 ="J0894" | &hcpcsvar.2 ="C9231"
									| &hcpcsvar.3 ="J0894" | &hcpcsvar.3 ="C9231"
									| &hcpcsvar.4 ="J0894" | &hcpcsvar.4 ="C9231"
									| &hcpcsvar.5 ="J0894" | &hcpcsvar.5 ="C9231"
									| &hcpcsvar.6 ="J0894" | &hcpcsvar.6 ="C9231"
									| &hcpcsvar.7 ="J0894" | &hcpcsvar.7 ="C9231"
									| &hcpcsvar.8 ="J0894" | &hcpcsvar.8 ="C9231"
									| &hcpcsvar.9 ="J0894" | &hcpcsvar.9 ="C9231"
									| &hcpcsvar.10="J0894" | &hcpcsvar.10="C9231"
									| &hcpcsvar.11="J0894" | &hcpcsvar.11="C9231"
									| &hcpcsvar.12="J0894" | &hcpcsvar.12="C9231"
									| &hcpcsvar.13="J0894" | &hcpcsvar.13="C9231"
									| &hcpcsvar.14="J0894" | &hcpcsvar.14="C9231"
									| &hcpcsvar.15="J0894" | &hcpcsvar.15="C9231"
									| &hcpcsvar.16="J0894" | &hcpcsvar.16="C9231"
									| &hcpcsvar.17="J0894" | &hcpcsvar.17="C9231"
									| &hcpcsvar.18="J0894" | &hcpcsvar.18="C9231"
									| &hcpcsvar.19="J0894" | &hcpcsvar.19="C9231"
									| &hcpcsvar.20="J0894" | &hcpcsvar.20="C9231"
									| &hcpcsvar.21="J0894" | &hcpcsvar.21="C9231"
									| &hcpcsvar.22="J0894" | &hcpcsvar.22="C9231"
									| &hcpcsvar.23="J0894" | &hcpcsvar.23="C9231"
									| &hcpcsvar.24="J0894" | &hcpcsvar.24="C9231"
									| &hcpcsvar.25="J0894" | &hcpcsvar.25="C9231"
									| &hcpcsvar.26="J0894" | &hcpcsvar.26="C9231"
									| &hcpcsvar.27="J0894" | &hcpcsvar.27="C9231"
									| &hcpcsvar.28="J0894" | &hcpcsvar.28="C9231"
									| &hcpcsvar.29="J0894" | &hcpcsvar.29="C9231"
									| &hcpcsvar.30="J0894" | &hcpcsvar.30="C9231"
									| &hcpcsvar.31="J0894" | &hcpcsvar.31="C9231"
									| &hcpcsvar.32="J0894" | &hcpcsvar.32="C9231"
									| &hcpcsvar.33="J0894" | &hcpcsvar.33="C9231"
									| &hcpcsvar.34="J0894" | &hcpcsvar.34="C9231"
									| &hcpcsvar.35="J0894" | &hcpcsvar.35="C9231"
									| &hcpcsvar.36="J0894" | &hcpcsvar.36="C9231"
									| &hcpcsvar.37="J0894" | &hcpcsvar.37="C9231"
									| &hcpcsvar.38="J0894" | &hcpcsvar.38="C9231"
									| &hcpcsvar.39="J0894" | &hcpcsvar.39="C9231"
									| &hcpcsvar.40="J0894" | &hcpcsvar.40="C9231"
									| &hcpcsvar.41="J0894" | &hcpcsvar.41="C9231"
									| &hcpcsvar.42="J0894" | &hcpcsvar.42="C9231"
									| &hcpcsvar.43="J0894" | &hcpcsvar.43="C9231"
									| &hcpcsvar.44="J0894" | &hcpcsvar.44="C9231"
									| &hcpcsvar.45="J0894" | &hcpcsvar.45="C9231"
									| substr(&apcvar.1 ,2,4)="9231"
									| substr(&apcvar.2 ,2,4)="9231"
									| substr(&apcvar.3 ,2,4)="9231"
									| substr(&apcvar.4 ,2,4)="9231"
									| substr(&apcvar.5 ,2,4)="9231"
									| substr(&apcvar.6 ,2,4)="9231"
									| substr(&apcvar.7 ,2,4)="9231"
									| substr(&apcvar.8 ,2,4)="9231"
									| substr(&apcvar.9 ,2,4)="9231"
									| substr(&apcvar.10,2,4)="9231"
									| substr(&apcvar.11,2,4)="9231"
									| substr(&apcvar.12,2,4)="9231"
									| substr(&apcvar.13,2,4)="9231"
									| substr(&apcvar.14,2,4)="9231"
									| substr(&apcvar.15,2,4)="9231"
									| substr(&apcvar.16,2,4)="9231"
									| substr(&apcvar.17,2,4)="9231"
									| substr(&apcvar.18,2,4)="9231"
									| substr(&apcvar.19,2,4)="9231"
									| substr(&apcvar.20,2,4)="9231"
									| substr(&apcvar.21,2,4)="9231"
									| substr(&apcvar.22,2,4)="9231"
									| substr(&apcvar.23,2,4)="9231"
									| substr(&apcvar.24,2,4)="9231"
									| substr(&apcvar.25,2,4)="9231"
									| substr(&apcvar.26,2,4)="9231"
									| substr(&apcvar.27,2,4)="9231"
									| substr(&apcvar.28,2,4)="9231"
									| substr(&apcvar.29,2,4)="9231"
									| substr(&apcvar.30,2,4)="9231"
									| substr(&apcvar.31,2,4)="9231"
									| substr(&apcvar.32,2,4)="9231"
									| substr(&apcvar.33,2,4)="9231"
									| substr(&apcvar.34,2,4)="9231"
									| substr(&apcvar.35,2,4)="9231"
									| substr(&apcvar.36,2,4)="9231"
									| substr(&apcvar.37,2,4)="9231"
									| substr(&apcvar.38,2,4)="9231"
									| substr(&apcvar.39,2,4)="9231"
									| substr(&apcvar.40,2,4)="9231"
									| substr(&apcvar.41,2,4)="9231"
									| substr(&apcvar.42,2,4)="9231"
									| substr(&apcvar.43,2,4)="9231"
									| substr(&apcvar.44,2,4)="9231"
									| substr(&apcvar.45,2,4)="9231";
				chem_panitumumab 	= &hcpcsvar.1 ="J9303" | &hcpcsvar.1 ="C9235"
									| &hcpcsvar.2 ="J9303" | &hcpcsvar.2 ="C9235"
									| &hcpcsvar.3 ="J9303" | &hcpcsvar.3 ="C9235"
									| &hcpcsvar.4 ="J9303" | &hcpcsvar.4 ="C9235"
									| &hcpcsvar.5 ="J9303" | &hcpcsvar.5 ="C9235"
									| &hcpcsvar.6 ="J9303" | &hcpcsvar.6 ="C9235"
									| &hcpcsvar.7 ="J9303" | &hcpcsvar.7 ="C9235"
									| &hcpcsvar.8 ="J9303" | &hcpcsvar.8 ="C9235"
									| &hcpcsvar.9 ="J9303" | &hcpcsvar.9 ="C9235"
									| &hcpcsvar.10="J9303" | &hcpcsvar.10="C9235"
									| &hcpcsvar.11="J9303" | &hcpcsvar.11="C9235"
									| &hcpcsvar.12="J9303" | &hcpcsvar.12="C9235"
									| &hcpcsvar.13="J9303" | &hcpcsvar.13="C9235"
									| &hcpcsvar.14="J9303" | &hcpcsvar.14="C9235"
									| &hcpcsvar.15="J9303" | &hcpcsvar.15="C9235"
									| &hcpcsvar.16="J9303" | &hcpcsvar.16="C9235"
									| &hcpcsvar.17="J9303" | &hcpcsvar.17="C9235"
									| &hcpcsvar.18="J9303" | &hcpcsvar.18="C9235"
									| &hcpcsvar.19="J9303" | &hcpcsvar.19="C9235"
									| &hcpcsvar.20="J9303" | &hcpcsvar.20="C9235"
									| &hcpcsvar.21="J9303" | &hcpcsvar.21="C9235"
									| &hcpcsvar.22="J9303" | &hcpcsvar.22="C9235"
									| &hcpcsvar.23="J9303" | &hcpcsvar.23="C9235"
									| &hcpcsvar.24="J9303" | &hcpcsvar.24="C9235"
									| &hcpcsvar.25="J9303" | &hcpcsvar.25="C9235"
									| &hcpcsvar.26="J9303" | &hcpcsvar.26="C9235"
									| &hcpcsvar.27="J9303" | &hcpcsvar.27="C9235"
									| &hcpcsvar.28="J9303" | &hcpcsvar.28="C9235"
									| &hcpcsvar.29="J9303" | &hcpcsvar.29="C9235"
									| &hcpcsvar.30="J9303" | &hcpcsvar.30="C9235"
									| &hcpcsvar.31="J9303" | &hcpcsvar.31="C9235"
									| &hcpcsvar.32="J9303" | &hcpcsvar.32="C9235"
									| &hcpcsvar.33="J9303" | &hcpcsvar.33="C9235"
									| &hcpcsvar.34="J9303" | &hcpcsvar.34="C9235"
									| &hcpcsvar.35="J9303" | &hcpcsvar.35="C9235"
									| &hcpcsvar.36="J9303" | &hcpcsvar.36="C9235"
									| &hcpcsvar.37="J9303" | &hcpcsvar.37="C9235"
									| &hcpcsvar.38="J9303" | &hcpcsvar.38="C9235"
									| &hcpcsvar.39="J9303" | &hcpcsvar.39="C9235"
									| &hcpcsvar.40="J9303" | &hcpcsvar.40="C9235"
									| &hcpcsvar.41="J9303" | &hcpcsvar.41="C9235"
									| &hcpcsvar.42="J9303" | &hcpcsvar.42="C9235"
									| &hcpcsvar.43="J9303" | &hcpcsvar.43="C9235"
									| &hcpcsvar.44="J9303" | &hcpcsvar.44="C9235"
									| &hcpcsvar.45="J9303" | &hcpcsvar.45="C9235"
									| substr(&apcvar.1 ,2,4)="9235"
									| substr(&apcvar.2 ,2,4)="9235"
									| substr(&apcvar.3 ,2,4)="9235"
									| substr(&apcvar.4 ,2,4)="9235"
									| substr(&apcvar.5 ,2,4)="9235"
									| substr(&apcvar.6 ,2,4)="9235"
									| substr(&apcvar.7 ,2,4)="9235"
									| substr(&apcvar.8 ,2,4)="9235"
									| substr(&apcvar.9 ,2,4)="9235"
									| substr(&apcvar.10,2,4)="9235"
									| substr(&apcvar.11,2,4)="9235"
									| substr(&apcvar.12,2,4)="9235"
									| substr(&apcvar.13,2,4)="9235"
									| substr(&apcvar.14,2,4)="9235"
									| substr(&apcvar.15,2,4)="9235"
									| substr(&apcvar.16,2,4)="9235"
									| substr(&apcvar.17,2,4)="9235"
									| substr(&apcvar.18,2,4)="9235"
									| substr(&apcvar.19,2,4)="9235"
									| substr(&apcvar.20,2,4)="9235"
									| substr(&apcvar.21,2,4)="9235"
									| substr(&apcvar.22,2,4)="9235"
									| substr(&apcvar.23,2,4)="9235"
									| substr(&apcvar.24,2,4)="9235"
									| substr(&apcvar.25,2,4)="9235"
									| substr(&apcvar.26,2,4)="9235"
									| substr(&apcvar.27,2,4)="9235"
									| substr(&apcvar.28,2,4)="9235"
									| substr(&apcvar.29,2,4)="9235"
									| substr(&apcvar.30,2,4)="9235"
									| substr(&apcvar.31,2,4)="9235"
									| substr(&apcvar.32,2,4)="9235"
									| substr(&apcvar.33,2,4)="9235"
									| substr(&apcvar.34,2,4)="9235"
									| substr(&apcvar.35,2,4)="9235"
									| substr(&apcvar.36,2,4)="9235"
									| substr(&apcvar.37,2,4)="9235"
									| substr(&apcvar.38,2,4)="9235"
									| substr(&apcvar.39,2,4)="9235"
									| substr(&apcvar.40,2,4)="9235"
									| substr(&apcvar.41,2,4)="9235"
									| substr(&apcvar.42,2,4)="9235"
									| substr(&apcvar.43,2,4)="9235"
									| substr(&apcvar.44,2,4)="9235"
									| substr(&apcvar.45,2,4)="9235";
				chem_temsirolimus 	= &hcpcsvar.1 ="J9330" | &hcpcsvar.1 ="C9239"
									| &hcpcsvar.2 ="J9330" | &hcpcsvar.2 ="C9239"
									| &hcpcsvar.3 ="J9330" | &hcpcsvar.3 ="C9239"
									| &hcpcsvar.4 ="J9330" | &hcpcsvar.4 ="C9239"
									| &hcpcsvar.5 ="J9330" | &hcpcsvar.5 ="C9239"
									| &hcpcsvar.6 ="J9330" | &hcpcsvar.6 ="C9239"
									| &hcpcsvar.7 ="J9330" | &hcpcsvar.7 ="C9239"
									| &hcpcsvar.8 ="J9330" | &hcpcsvar.8 ="C9239"
									| &hcpcsvar.9 ="J9330" | &hcpcsvar.9 ="C9239"
									| &hcpcsvar.10="J9330" | &hcpcsvar.10="C9239"
									| &hcpcsvar.11="J9330" | &hcpcsvar.11="C9239"
									| &hcpcsvar.12="J9330" | &hcpcsvar.12="C9239"
									| &hcpcsvar.13="J9330" | &hcpcsvar.13="C9239"
									| &hcpcsvar.14="J9330" | &hcpcsvar.14="C9239"
									| &hcpcsvar.15="J9330" | &hcpcsvar.15="C9239"
									| &hcpcsvar.16="J9330" | &hcpcsvar.16="C9239"
									| &hcpcsvar.17="J9330" | &hcpcsvar.17="C9239"
									| &hcpcsvar.18="J9330" | &hcpcsvar.18="C9239"
									| &hcpcsvar.19="J9330" | &hcpcsvar.19="C9239"
									| &hcpcsvar.20="J9330" | &hcpcsvar.20="C9239"
									| &hcpcsvar.21="J9330" | &hcpcsvar.21="C9239"
									| &hcpcsvar.22="J9330" | &hcpcsvar.22="C9239"
									| &hcpcsvar.23="J9330" | &hcpcsvar.23="C9239"
									| &hcpcsvar.24="J9330" | &hcpcsvar.24="C9239"
									| &hcpcsvar.25="J9330" | &hcpcsvar.25="C9239"
									| &hcpcsvar.26="J9330" | &hcpcsvar.26="C9239"
									| &hcpcsvar.27="J9330" | &hcpcsvar.27="C9239"
									| &hcpcsvar.28="J9330" | &hcpcsvar.28="C9239"
									| &hcpcsvar.29="J9330" | &hcpcsvar.29="C9239"
									| &hcpcsvar.30="J9330" | &hcpcsvar.30="C9239"
									| &hcpcsvar.31="J9330" | &hcpcsvar.31="C9239"
									| &hcpcsvar.32="J9330" | &hcpcsvar.32="C9239"
									| &hcpcsvar.33="J9330" | &hcpcsvar.33="C9239"
									| &hcpcsvar.34="J9330" | &hcpcsvar.34="C9239"
									| &hcpcsvar.35="J9330" | &hcpcsvar.35="C9239"
									| &hcpcsvar.36="J9330" | &hcpcsvar.36="C9239"
									| &hcpcsvar.37="J9330" | &hcpcsvar.37="C9239"
									| &hcpcsvar.38="J9330" | &hcpcsvar.38="C9239"
									| &hcpcsvar.39="J9330" | &hcpcsvar.39="C9239"
									| &hcpcsvar.40="J9330" | &hcpcsvar.40="C9239"
									| &hcpcsvar.41="J9330" | &hcpcsvar.41="C9239"
									| &hcpcsvar.42="J9330" | &hcpcsvar.42="C9239"
									| &hcpcsvar.43="J9330" | &hcpcsvar.43="C9239"
									| &hcpcsvar.44="J9330" | &hcpcsvar.44="C9239"
									| &hcpcsvar.45="J9330" | &hcpcsvar.45="C9239"
									| substr(&apcvar.1 ,2,4)="9239" | substr(&apcvar.1 ,2,4)="1168"
									| substr(&apcvar.2 ,2,4)="9239" | substr(&apcvar.2 ,2,4)="1168"
									| substr(&apcvar.3 ,2,4)="9239" | substr(&apcvar.3 ,2,4)="1168"
									| substr(&apcvar.4 ,2,4)="9239" | substr(&apcvar.4 ,2,4)="1168"
									| substr(&apcvar.5 ,2,4)="9239" | substr(&apcvar.5 ,2,4)="1168"
									| substr(&apcvar.6 ,2,4)="9239" | substr(&apcvar.6 ,2,4)="1168"
									| substr(&apcvar.7 ,2,4)="9239" | substr(&apcvar.7 ,2,4)="1168"
									| substr(&apcvar.8 ,2,4)="9239" | substr(&apcvar.8 ,2,4)="1168"
									| substr(&apcvar.9 ,2,4)="9239" | substr(&apcvar.9 ,2,4)="1168"
									| substr(&apcvar.10,2,4)="9239" | substr(&apcvar.10,2,4)="1168"
									| substr(&apcvar.11,2,4)="9239" | substr(&apcvar.11,2,4)="1168"
									| substr(&apcvar.12,2,4)="9239" | substr(&apcvar.12,2,4)="1168"
									| substr(&apcvar.13,2,4)="9239" | substr(&apcvar.13,2,4)="1168"
									| substr(&apcvar.14,2,4)="9239" | substr(&apcvar.14,2,4)="1168"
									| substr(&apcvar.15,2,4)="9239" | substr(&apcvar.15,2,4)="1168"
									| substr(&apcvar.16,2,4)="9239" | substr(&apcvar.16,2,4)="1168"
									| substr(&apcvar.17,2,4)="9239" | substr(&apcvar.17,2,4)="1168"
									| substr(&apcvar.18,2,4)="9239" | substr(&apcvar.18,2,4)="1168"
									| substr(&apcvar.19,2,4)="9239" | substr(&apcvar.19,2,4)="1168"
									| substr(&apcvar.20,2,4)="9239" | substr(&apcvar.20,2,4)="1168"
									| substr(&apcvar.21,2,4)="9239" | substr(&apcvar.21,2,4)="1168"
									| substr(&apcvar.22,2,4)="9239" | substr(&apcvar.22,2,4)="1168"
									| substr(&apcvar.23,2,4)="9239" | substr(&apcvar.23,2,4)="1168"
									| substr(&apcvar.24,2,4)="9239" | substr(&apcvar.24,2,4)="1168"
									| substr(&apcvar.25,2,4)="9239" | substr(&apcvar.25,2,4)="1168"
									| substr(&apcvar.26,2,4)="9239" | substr(&apcvar.26,2,4)="1168"
									| substr(&apcvar.27,2,4)="9239" | substr(&apcvar.27,2,4)="1168"
									| substr(&apcvar.28,2,4)="9239" | substr(&apcvar.28,2,4)="1168"
									| substr(&apcvar.29,2,4)="9239" | substr(&apcvar.29,2,4)="1168"
									| substr(&apcvar.30,2,4)="9239" | substr(&apcvar.30,2,4)="1168"
									| substr(&apcvar.31,2,4)="9239" | substr(&apcvar.31,2,4)="1168"
									| substr(&apcvar.32,2,4)="9239" | substr(&apcvar.32,2,4)="1168"
									| substr(&apcvar.33,2,4)="9239" | substr(&apcvar.33,2,4)="1168"
									| substr(&apcvar.34,2,4)="9239" | substr(&apcvar.34,2,4)="1168"
									| substr(&apcvar.35,2,4)="9239" | substr(&apcvar.35,2,4)="1168"
									| substr(&apcvar.36,2,4)="9239" | substr(&apcvar.36,2,4)="1168"
									| substr(&apcvar.37,2,4)="9239" | substr(&apcvar.37,2,4)="1168"
									| substr(&apcvar.38,2,4)="9239" | substr(&apcvar.38,2,4)="1168"
									| substr(&apcvar.39,2,4)="9239" | substr(&apcvar.39,2,4)="1168"
									| substr(&apcvar.40,2,4)="9239" | substr(&apcvar.40,2,4)="1168"
									| substr(&apcvar.41,2,4)="9239" | substr(&apcvar.41,2,4)="1168"
									| substr(&apcvar.42,2,4)="9239" | substr(&apcvar.42,2,4)="1168"
									| substr(&apcvar.43,2,4)="9239" | substr(&apcvar.43,2,4)="1168"
									| substr(&apcvar.44,2,4)="9239" | substr(&apcvar.44,2,4)="1168"
									| substr(&apcvar.45,2,4)="9239" | substr(&apcvar.45,2,4)="1168";
				chem_select 		= chem_capecitabine | chem_trastuzumab | chem_valrubicin 	| chem_denileukin 	| chem_temozolomide | chem_epirubicin 	| chem_bcg 
									| chem_gemtuzumab 	| chem_triptorelin | chem_arsenic 		| chem_alemtuzumab 	| chem_zoledronic 	| chem_ibritumomab 	| chem_fulvestrant 
									| chem_rasburicase 	| chem_oxaliplatin | chem_gefitinib 	| chem_bortezomib 	| chem_tositumomab 	| chem_pemetrexed 	| chem_cetuximab 
									| chem_bevacizumab 	| chem_clofarabine | chem_nelarabine 	| chem_decitabine 	| chem_panitumumab 	| chem_temsirolimus;
				
				/* IV chemo DRUGS */
				chem_linedrug 	= (index(&hcpcsvar.1 ,"J9")>0)
								| (index(&hcpcsvar.2 ,"J9")>0)
								| (index(&hcpcsvar.3 ,"J9")>0)
								| (index(&hcpcsvar.4 ,"J9")>0)
								| (index(&hcpcsvar.5 ,"J9")>0)
								| (index(&hcpcsvar.6 ,"J9")>0)
								| (index(&hcpcsvar.7 ,"J9")>0)
								| (index(&hcpcsvar.8 ,"J9")>0)
								| (index(&hcpcsvar.9 ,"J9")>0)
								| (index(&hcpcsvar.10,"J9")>0)
								| (index(&hcpcsvar.11,"J9")>0)
								| (index(&hcpcsvar.12,"J9")>0)
								| (index(&hcpcsvar.13,"J9")>0)
								| (index(&hcpcsvar.14,"J9")>0)
								| (index(&hcpcsvar.15,"J9")>0)
								| (index(&hcpcsvar.16,"J9")>0)
								| (index(&hcpcsvar.17,"J9")>0)
								| (index(&hcpcsvar.18,"J9")>0)
								| (index(&hcpcsvar.19,"J9")>0)
								| (index(&hcpcsvar.20,"J9")>0)
								| (index(&hcpcsvar.21,"J9")>0)
								| (index(&hcpcsvar.22,"J9")>0)
								| (index(&hcpcsvar.23,"J9")>0)
								| (index(&hcpcsvar.24,"J9")>0)
								| (index(&hcpcsvar.25,"J9")>0)
								| (index(&hcpcsvar.26,"J9")>0)
								| (index(&hcpcsvar.27,"J9")>0)
								| (index(&hcpcsvar.28,"J9")>0)
								| (index(&hcpcsvar.29,"J9")>0)
								| (index(&hcpcsvar.30,"J9")>0)
								| (index(&hcpcsvar.31,"J9")>0)
								| (index(&hcpcsvar.32,"J9")>0)
								| (index(&hcpcsvar.33,"J9")>0)
								| (index(&hcpcsvar.34,"J9")>0)
								| (index(&hcpcsvar.35,"J9")>0)
								| (index(&hcpcsvar.36,"J9")>0)
								| (index(&hcpcsvar.37,"J9")>0)
								| (index(&hcpcsvar.38,"J9")>0)
								| (index(&hcpcsvar.39,"J9")>0)
								| (index(&hcpcsvar.40,"J9")>0)
								| (index(&hcpcsvar.41,"J9")>0)
								| (index(&hcpcsvar.42,"J9")>0)
								| (index(&hcpcsvar.43,"J9")>0)
								| (index(&hcpcsvar.44,"J9")>0)
								| (index(&hcpcsvar.45,"J9")>0);
				
				/* Chemo ADMINISTRATION, based on available line items */
				chem_lineadmin 	= (96400<=input(&hcpcsvar.1 ,?? 5.) & input(&hcpcsvar.1 ,?? 5.)<=96549)
								| (96400<=input(&hcpcsvar.2 ,?? 5.) & input(&hcpcsvar.2 ,?? 5.)<=96549)
								| (96400<=input(&hcpcsvar.3 ,?? 5.) & input(&hcpcsvar.3 ,?? 5.)<=96549)
								| (96400<=input(&hcpcsvar.4 ,?? 5.) & input(&hcpcsvar.4 ,?? 5.)<=96549)
								| (96400<=input(&hcpcsvar.5 ,?? 5.) & input(&hcpcsvar.5 ,?? 5.)<=96549)
								| (96400<=input(&hcpcsvar.6 ,?? 5.) & input(&hcpcsvar.6 ,?? 5.)<=96549)
								| (96400<=input(&hcpcsvar.7 ,?? 5.) & input(&hcpcsvar.7 ,?? 5.)<=96549)
								| (96400<=input(&hcpcsvar.8 ,?? 5.) & input(&hcpcsvar.8 ,?? 5.)<=96549)
								| (96400<=input(&hcpcsvar.9 ,?? 5.) & input(&hcpcsvar.9 ,?? 5.)<=96549)
								| (96400<=input(&hcpcsvar.10,?? 5.) & input(&hcpcsvar.10,?? 5.)<=96549)
								| (96400<=input(&hcpcsvar.11,?? 5.) & input(&hcpcsvar.11,?? 5.)<=96549)
								| (96400<=input(&hcpcsvar.12,?? 5.) & input(&hcpcsvar.12,?? 5.)<=96549)
								| (96400<=input(&hcpcsvar.13,?? 5.) & input(&hcpcsvar.13,?? 5.)<=96549)
								| (96400<=input(&hcpcsvar.14,?? 5.) & input(&hcpcsvar.14,?? 5.)<=96549)
								| (96400<=input(&hcpcsvar.15,?? 5.) & input(&hcpcsvar.15,?? 5.)<=96549)
								| (96400<=input(&hcpcsvar.16,?? 5.) & input(&hcpcsvar.16,?? 5.)<=96549)
								| (96400<=input(&hcpcsvar.17,?? 5.) & input(&hcpcsvar.17,?? 5.)<=96549)
								| (96400<=input(&hcpcsvar.18,?? 5.) & input(&hcpcsvar.18,?? 5.)<=96549)
								| (96400<=input(&hcpcsvar.19,?? 5.) & input(&hcpcsvar.19,?? 5.)<=96549)
								| (96400<=input(&hcpcsvar.20,?? 5.) & input(&hcpcsvar.20,?? 5.)<=96549)
								| (96400<=input(&hcpcsvar.21,?? 5.) & input(&hcpcsvar.21,?? 5.)<=96549)
								| (96400<=input(&hcpcsvar.22,?? 5.) & input(&hcpcsvar.22,?? 5.)<=96549)
								| (96400<=input(&hcpcsvar.23,?? 5.) & input(&hcpcsvar.23,?? 5.)<=96549)
								| (96400<=input(&hcpcsvar.24,?? 5.) & input(&hcpcsvar.24,?? 5.)<=96549)
								| (96400<=input(&hcpcsvar.25,?? 5.) & input(&hcpcsvar.25,?? 5.)<=96549)
								| (96400<=input(&hcpcsvar.26,?? 5.) & input(&hcpcsvar.26,?? 5.)<=96549)
								| (96400<=input(&hcpcsvar.27,?? 5.) & input(&hcpcsvar.27,?? 5.)<=96549)
								| (96400<=input(&hcpcsvar.28,?? 5.) & input(&hcpcsvar.28,?? 5.)<=96549)
								| (96400<=input(&hcpcsvar.29,?? 5.) & input(&hcpcsvar.29,?? 5.)<=96549)
								| (96400<=input(&hcpcsvar.30,?? 5.) & input(&hcpcsvar.30,?? 5.)<=96549)
								| (96400<=input(&hcpcsvar.31,?? 5.) & input(&hcpcsvar.31,?? 5.)<=96549)
								| (96400<=input(&hcpcsvar.32,?? 5.) & input(&hcpcsvar.32,?? 5.)<=96549)
								| (96400<=input(&hcpcsvar.33,?? 5.) & input(&hcpcsvar.33,?? 5.)<=96549)
								| (96400<=input(&hcpcsvar.34,?? 5.) & input(&hcpcsvar.34,?? 5.)<=96549)
								| (96400<=input(&hcpcsvar.35,?? 5.) & input(&hcpcsvar.35,?? 5.)<=96549)
								| (96400<=input(&hcpcsvar.36,?? 5.) & input(&hcpcsvar.36,?? 5.)<=96549)
								| (96400<=input(&hcpcsvar.37,?? 5.) & input(&hcpcsvar.37,?? 5.)<=96549)
								| (96400<=input(&hcpcsvar.38,?? 5.) & input(&hcpcsvar.38,?? 5.)<=96549)
								| (96400<=input(&hcpcsvar.39,?? 5.) & input(&hcpcsvar.39,?? 5.)<=96549)
								| (96400<=input(&hcpcsvar.40,?? 5.) & input(&hcpcsvar.40,?? 5.)<=96549)
								| (96400<=input(&hcpcsvar.41,?? 5.) & input(&hcpcsvar.41,?? 5.)<=96549)
								| (96400<=input(&hcpcsvar.42,?? 5.) & input(&hcpcsvar.42,?? 5.)<=96549)
								| (96400<=input(&hcpcsvar.43,?? 5.) & input(&hcpcsvar.43,?? 5.)<=96549)
								| (96400<=input(&hcpcsvar.44,?? 5.) & input(&hcpcsvar.44,?? 5.)<=96549)
								| (96400<=input(&hcpcsvar.45,?? 5.) & input(&hcpcsvar.45,?? 5.)<=96549)
								| (&hcpcsvar.1 ="Q0083" | &hcpcsvar.1 ="Q0084" |&hcpcsvar.1 ="Q0085" | &hcpcsvar.1 ="51720")
								| (&hcpcsvar.2 ="Q0083" | &hcpcsvar.2 ="Q0084" |&hcpcsvar.2 ="Q0085" | &hcpcsvar.2 ="51720")
								| (&hcpcsvar.3 ="Q0083" | &hcpcsvar.3 ="Q0084" |&hcpcsvar.3 ="Q0085" | &hcpcsvar.3 ="51720")
								| (&hcpcsvar.4 ="Q0083" | &hcpcsvar.4 ="Q0084" |&hcpcsvar.4 ="Q0085" | &hcpcsvar.4 ="51720")
								| (&hcpcsvar.5 ="Q0083" | &hcpcsvar.5 ="Q0084" |&hcpcsvar.5 ="Q0085" | &hcpcsvar.5 ="51720")
								| (&hcpcsvar.6 ="Q0083" | &hcpcsvar.6 ="Q0084" |&hcpcsvar.6 ="Q0085" | &hcpcsvar.6 ="51720")
								| (&hcpcsvar.7 ="Q0083" | &hcpcsvar.7 ="Q0084" |&hcpcsvar.7 ="Q0085" | &hcpcsvar.7 ="51720")
								| (&hcpcsvar.8 ="Q0083" | &hcpcsvar.8 ="Q0084" |&hcpcsvar.8 ="Q0085" | &hcpcsvar.8 ="51720")
								| (&hcpcsvar.9 ="Q0083" | &hcpcsvar.9 ="Q0084" |&hcpcsvar.9 ="Q0085" | &hcpcsvar.9 ="51720")
								| (&hcpcsvar.10="Q0083" | &hcpcsvar.10="Q0084" |&hcpcsvar.10="Q0085" | &hcpcsvar.10="51720")
								| (&hcpcsvar.11="Q0083" | &hcpcsvar.11="Q0084" |&hcpcsvar.11="Q0085" | &hcpcsvar.11="51720")
								| (&hcpcsvar.12="Q0083" | &hcpcsvar.12="Q0084" |&hcpcsvar.12="Q0085" | &hcpcsvar.12="51720")
								| (&hcpcsvar.13="Q0083" | &hcpcsvar.13="Q0084" |&hcpcsvar.13="Q0085" | &hcpcsvar.13="51720")
								| (&hcpcsvar.14="Q0083" | &hcpcsvar.14="Q0084" |&hcpcsvar.14="Q0085" | &hcpcsvar.14="51720")
								| (&hcpcsvar.15="Q0083" | &hcpcsvar.15="Q0084" |&hcpcsvar.15="Q0085" | &hcpcsvar.15="51720")
								| (&hcpcsvar.16="Q0083" | &hcpcsvar.16="Q0084" |&hcpcsvar.16="Q0085" | &hcpcsvar.16="51720")
								| (&hcpcsvar.17="Q0083" | &hcpcsvar.17="Q0084" |&hcpcsvar.17="Q0085" | &hcpcsvar.17="51720")
								| (&hcpcsvar.18="Q0083" | &hcpcsvar.18="Q0084" |&hcpcsvar.18="Q0085" | &hcpcsvar.18="51720")
								| (&hcpcsvar.19="Q0083" | &hcpcsvar.19="Q0084" |&hcpcsvar.19="Q0085" | &hcpcsvar.19="51720")
								| (&hcpcsvar.20="Q0083" | &hcpcsvar.20="Q0084" |&hcpcsvar.20="Q0085" | &hcpcsvar.20="51720")
								| (&hcpcsvar.21="Q0083" | &hcpcsvar.21="Q0084" |&hcpcsvar.21="Q0085" | &hcpcsvar.21="51720")
								| (&hcpcsvar.22="Q0083" | &hcpcsvar.22="Q0084" |&hcpcsvar.22="Q0085" | &hcpcsvar.22="51720")
								| (&hcpcsvar.23="Q0083" | &hcpcsvar.23="Q0084" |&hcpcsvar.23="Q0085" | &hcpcsvar.23="51720")
								| (&hcpcsvar.24="Q0083" | &hcpcsvar.24="Q0084" |&hcpcsvar.24="Q0085" | &hcpcsvar.24="51720")
								| (&hcpcsvar.25="Q0083" | &hcpcsvar.25="Q0084" |&hcpcsvar.25="Q0085" | &hcpcsvar.25="51720")
								| (&hcpcsvar.26="Q0083" | &hcpcsvar.26="Q0084" |&hcpcsvar.26="Q0085" | &hcpcsvar.26="51720")
								| (&hcpcsvar.27="Q0083" | &hcpcsvar.27="Q0084" |&hcpcsvar.27="Q0085" | &hcpcsvar.27="51720")
								| (&hcpcsvar.28="Q0083" | &hcpcsvar.28="Q0084" |&hcpcsvar.28="Q0085" | &hcpcsvar.28="51720")
								| (&hcpcsvar.29="Q0083" | &hcpcsvar.29="Q0084" |&hcpcsvar.29="Q0085" | &hcpcsvar.29="51720")
								| (&hcpcsvar.30="Q0083" | &hcpcsvar.30="Q0084" |&hcpcsvar.30="Q0085" | &hcpcsvar.30="51720")
								| (&hcpcsvar.31="Q0083" | &hcpcsvar.31="Q0084" |&hcpcsvar.31="Q0085" | &hcpcsvar.31="51720")
								| (&hcpcsvar.32="Q0083" | &hcpcsvar.32="Q0084" |&hcpcsvar.32="Q0085" | &hcpcsvar.32="51720")
								| (&hcpcsvar.33="Q0083" | &hcpcsvar.33="Q0084" |&hcpcsvar.33="Q0085" | &hcpcsvar.33="51720")
								| (&hcpcsvar.34="Q0083" | &hcpcsvar.34="Q0084" |&hcpcsvar.34="Q0085" | &hcpcsvar.34="51720")
								| (&hcpcsvar.35="Q0083" | &hcpcsvar.35="Q0084" |&hcpcsvar.35="Q0085" | &hcpcsvar.35="51720")
								| (&hcpcsvar.36="Q0083" | &hcpcsvar.36="Q0084" |&hcpcsvar.36="Q0085" | &hcpcsvar.36="51720")
								| (&hcpcsvar.37="Q0083" | &hcpcsvar.37="Q0084" |&hcpcsvar.37="Q0085" | &hcpcsvar.37="51720")
								| (&hcpcsvar.38="Q0083" | &hcpcsvar.38="Q0084" |&hcpcsvar.38="Q0085" | &hcpcsvar.38="51720")
								| (&hcpcsvar.39="Q0083" | &hcpcsvar.39="Q0084" |&hcpcsvar.39="Q0085" | &hcpcsvar.39="51720")
								| (&hcpcsvar.40="Q0083" | &hcpcsvar.40="Q0084" |&hcpcsvar.40="Q0085" | &hcpcsvar.40="51720")
								| (&hcpcsvar.41="Q0083" | &hcpcsvar.41="Q0084" |&hcpcsvar.41="Q0085" | &hcpcsvar.41="51720")
								| (&hcpcsvar.42="Q0083" | &hcpcsvar.42="Q0084" |&hcpcsvar.42="Q0085" | &hcpcsvar.42="51720")
								| (&hcpcsvar.43="Q0083" | &hcpcsvar.43="Q0084" |&hcpcsvar.43="Q0085" | &hcpcsvar.43="51720")
								| (&hcpcsvar.44="Q0083" | &hcpcsvar.44="Q0084" |&hcpcsvar.44="Q0085" | &hcpcsvar.44="51720")
								| (&hcpcsvar.45="Q0083" | &hcpcsvar.45="Q0084" |&hcpcsvar.45="Q0085" | &hcpcsvar.45="51720");
			%end; /* Outpatient files, 1999-2000 */	
			
			
			
			/* Outpatient files, 1998 */	
			%else %if %index(&currentfile.,op) & (&year.=1998) %then %do;
				/* Flag select cancer drugs */	
				%let apcvar = APCHIPPS;
				chem_capecitabine 	= &hcpcsvar.1 ="J8520" | &hcpcsvar.1 ="J8521"
									| &hcpcsvar.2 ="J8520" | &hcpcsvar.2 ="J8521"
									| &hcpcsvar.3 ="J8520" | &hcpcsvar.3 ="J8521"
									| &hcpcsvar.4 ="J8520" | &hcpcsvar.4 ="J8521"
									| &hcpcsvar.5 ="J8520" | &hcpcsvar.5 ="J8521"
									| &hcpcsvar.6 ="J8520" | &hcpcsvar.6 ="J8521"
									| &hcpcsvar.7 ="J8520" | &hcpcsvar.7 ="J8521"
									| &hcpcsvar.8 ="J8520" | &hcpcsvar.8 ="J8521"
									| &hcpcsvar.9 ="J8520" | &hcpcsvar.9 ="J8521"
									| &hcpcsvar.10="J8520" | &hcpcsvar.10="J8521"
									| &hcpcsvar.11="J8520" | &hcpcsvar.11="J8521"
									| &hcpcsvar.12="J8520" | &hcpcsvar.12="J8521"
									| &hcpcsvar.13="J8520" | &hcpcsvar.13="J8521"
									| &hcpcsvar.14="J8520" | &hcpcsvar.14="J8521"
									| &hcpcsvar.15="J8520" | &hcpcsvar.15="J8521"
									| &hcpcsvar.16="J8520" | &hcpcsvar.16="J8521"
									| &hcpcsvar.17="J8520" | &hcpcsvar.17="J8521"
									| &hcpcsvar.18="J8520" | &hcpcsvar.18="J8521"
									| &hcpcsvar.19="J8520" | &hcpcsvar.19="J8521"
									| &hcpcsvar.20="J8520" | &hcpcsvar.20="J8521"
									| &hcpcsvar.21="J8520" | &hcpcsvar.21="J8521"
									| &hcpcsvar.22="J8520" | &hcpcsvar.22="J8521"
									| &hcpcsvar.23="J8520" | &hcpcsvar.23="J8521"
									| &hcpcsvar.24="J8520" | &hcpcsvar.24="J8521"
									| &hcpcsvar.25="J8520" | &hcpcsvar.25="J8521"
									| &hcpcsvar.26="J8520" | &hcpcsvar.26="J8521"
									| &hcpcsvar.27="J8520" | &hcpcsvar.27="J8521"
									| &hcpcsvar.28="J8520" | &hcpcsvar.28="J8521"
									| &hcpcsvar.29="J8520" | &hcpcsvar.29="J8521"
									| &hcpcsvar.30="J8520" | &hcpcsvar.30="J8521"
									| &hcpcsvar.31="J8520" | &hcpcsvar.31="J8521"
									| &hcpcsvar.32="J8520" | &hcpcsvar.32="J8521"
									| &hcpcsvar.33="J8520" | &hcpcsvar.33="J8521"
									| &hcpcsvar.34="J8520" | &hcpcsvar.34="J8521"
									| &hcpcsvar.35="J8520" | &hcpcsvar.35="J8521"
									| &hcpcsvar.36="J8520" | &hcpcsvar.36="J8521"
									| &hcpcsvar.37="J8520" | &hcpcsvar.37="J8521"
									| &hcpcsvar.38="J8520" | &hcpcsvar.38="J8521"
									| &hcpcsvar.39="J8520" | &hcpcsvar.39="J8521"
									| &hcpcsvar.40="J8520" | &hcpcsvar.40="J8521"
									| &hcpcsvar.41="J8520" | &hcpcsvar.41="J8521"
									| &hcpcsvar.42="J8520" | &hcpcsvar.42="J8521"
									| &hcpcsvar.43="J8520" | &hcpcsvar.43="J8521"
									| &hcpcsvar.44="J8520" | &hcpcsvar.44="J8521"
									| &hcpcsvar.45="J8520" | &hcpcsvar.45="J8521"
									| &hcpcsvar.46="J8520" | &hcpcsvar.46="J8521"
									| &hcpcsvar.47="J8520" | &hcpcsvar.47="J8521"
									| &hcpcsvar.48="J8520" | &hcpcsvar.48="J8521"
									| &hcpcsvar.49="J8520" | &hcpcsvar.49="J8521"
									| &hcpcsvar.50="J8520" | &hcpcsvar.50="J8521"
									| &hcpcsvar.51="J8520" | &hcpcsvar.51="J8521"
									| &hcpcsvar.52="J8520" | &hcpcsvar.52="J8521"
									| &hcpcsvar.53="J8520" | &hcpcsvar.53="J8521"
									| &hcpcsvar.54="J8520" | &hcpcsvar.54="J8521"
									| &hcpcsvar.55="J8520" | &hcpcsvar.55="J8521"
									| &hcpcsvar.56="J8520" | &hcpcsvar.56="J8521"
									| &hcpcsvar.57="J8520" | &hcpcsvar.57="J8521"
									| &hcpcsvar.58="J8520" | &hcpcsvar.58="J8521";
				chem_trastuzumab 	= &hcpcsvar.1 ="J9355"
									| &hcpcsvar.2 ="J9355"
									| &hcpcsvar.3 ="J9355"
									| &hcpcsvar.4 ="J9355"
									| &hcpcsvar.5 ="J9355"
									| &hcpcsvar.6 ="J9355"
									| &hcpcsvar.7 ="J9355"
									| &hcpcsvar.8 ="J9355"
									| &hcpcsvar.9 ="J9355"
									| &hcpcsvar.10="J9355"
									| &hcpcsvar.11="J9355"
									| &hcpcsvar.12="J9355"
									| &hcpcsvar.13="J9355"
									| &hcpcsvar.14="J9355"
									| &hcpcsvar.15="J9355"
									| &hcpcsvar.16="J9355"
									| &hcpcsvar.17="J9355"
									| &hcpcsvar.18="J9355"
									| &hcpcsvar.19="J9355"
									| &hcpcsvar.20="J9355"
									| &hcpcsvar.21="J9355"
									| &hcpcsvar.22="J9355"
									| &hcpcsvar.23="J9355"
									| &hcpcsvar.24="J9355"
									| &hcpcsvar.25="J9355"
									| &hcpcsvar.26="J9355"
									| &hcpcsvar.27="J9355"
									| &hcpcsvar.28="J9355"
									| &hcpcsvar.29="J9355"
									| &hcpcsvar.30="J9355"
									| &hcpcsvar.31="J9355"
									| &hcpcsvar.32="J9355"
									| &hcpcsvar.33="J9355"
									| &hcpcsvar.34="J9355"
									| &hcpcsvar.35="J9355"
									| &hcpcsvar.36="J9355"
									| &hcpcsvar.37="J9355"
									| &hcpcsvar.38="J9355"
									| &hcpcsvar.39="J9355"
									| &hcpcsvar.40="J9355"
									| &hcpcsvar.41="J9355"
									| &hcpcsvar.42="J9355"
									| &hcpcsvar.43="J9355"
									| &hcpcsvar.44="J9355"
									| &hcpcsvar.45="J9355"
									| &hcpcsvar.46="J9355"
									| &hcpcsvar.47="J9355"
									| &hcpcsvar.48="J9355"
									| &hcpcsvar.49="J9355"
									| &hcpcsvar.50="J9355"
									| &hcpcsvar.51="J9355"
									| &hcpcsvar.52="J9355"
									| &hcpcsvar.53="J9355"
									| &hcpcsvar.54="J9355"
									| &hcpcsvar.55="J9355"
									| &hcpcsvar.56="J9355"
									| &hcpcsvar.57="J9355"
									| &hcpcsvar.58="J9355";
				chem_valrubicin 	= &hcpcsvar.1 ="J9357"
									| &hcpcsvar.2 ="J9357"
									| &hcpcsvar.3 ="J9357"
									| &hcpcsvar.4 ="J9357"
									| &hcpcsvar.5 ="J9357"
									| &hcpcsvar.6 ="J9357"
									| &hcpcsvar.7 ="J9357"
									| &hcpcsvar.8 ="J9357"
									| &hcpcsvar.9 ="J9357"
									| &hcpcsvar.10="J9357"
									| &hcpcsvar.11="J9357"
									| &hcpcsvar.12="J9357"
									| &hcpcsvar.13="J9357"
									| &hcpcsvar.14="J9357"
									| &hcpcsvar.15="J9357"
									| &hcpcsvar.16="J9357"
									| &hcpcsvar.17="J9357"
									| &hcpcsvar.18="J9357"
									| &hcpcsvar.19="J9357"
									| &hcpcsvar.20="J9357"
									| &hcpcsvar.21="J9357"
									| &hcpcsvar.22="J9357"
									| &hcpcsvar.23="J9357"
									| &hcpcsvar.24="J9357"
									| &hcpcsvar.25="J9357"
									| &hcpcsvar.26="J9357"
									| &hcpcsvar.27="J9357"
									| &hcpcsvar.28="J9357"
									| &hcpcsvar.29="J9357"
									| &hcpcsvar.30="J9357"
									| &hcpcsvar.31="J9357"
									| &hcpcsvar.32="J9357"
									| &hcpcsvar.33="J9357"
									| &hcpcsvar.34="J9357"
									| &hcpcsvar.35="J9357"
									| &hcpcsvar.36="J9357"
									| &hcpcsvar.37="J9357"
									| &hcpcsvar.38="J9357"
									| &hcpcsvar.39="J9357"
									| &hcpcsvar.40="J9357"
									| &hcpcsvar.41="J9357"
									| &hcpcsvar.42="J9357"
									| &hcpcsvar.43="J9357"
									| &hcpcsvar.44="J9357"
									| &hcpcsvar.45="J9357"
									| &hcpcsvar.46="J9357"
									| &hcpcsvar.47="J9357"
									| &hcpcsvar.48="J9357"
									| &hcpcsvar.49="J9357"
									| &hcpcsvar.50="J9357"
									| &hcpcsvar.51="J9357"
									| &hcpcsvar.52="J9357"
									| &hcpcsvar.53="J9357"
									| &hcpcsvar.54="J9357"
									| &hcpcsvar.55="J9357"
									| &hcpcsvar.56="J9357"
									| &hcpcsvar.57="J9357"
									| &hcpcsvar.58="J9357";
				chem_denileukin 	= &hcpcsvar.1 ="J9160" | &hcpcsvar.1 ="C1084"
									| &hcpcsvar.2 ="J9160" | &hcpcsvar.2 ="C1084"
									| &hcpcsvar.3 ="J9160" | &hcpcsvar.3 ="C1084"
									| &hcpcsvar.4 ="J9160" | &hcpcsvar.4 ="C1084"
									| &hcpcsvar.5 ="J9160" | &hcpcsvar.5 ="C1084"
									| &hcpcsvar.6 ="J9160" | &hcpcsvar.6 ="C1084"
									| &hcpcsvar.7 ="J9160" | &hcpcsvar.7 ="C1084"
									| &hcpcsvar.8 ="J9160" | &hcpcsvar.8 ="C1084"
									| &hcpcsvar.9 ="J9160" | &hcpcsvar.9 ="C1084"
									| &hcpcsvar.10="J9160" | &hcpcsvar.10="C1084"
									| &hcpcsvar.11="J9160" | &hcpcsvar.11="C1084"
									| &hcpcsvar.12="J9160" | &hcpcsvar.12="C1084"
									| &hcpcsvar.13="J9160" | &hcpcsvar.13="C1084"
									| &hcpcsvar.14="J9160" | &hcpcsvar.14="C1084"
									| &hcpcsvar.15="J9160" | &hcpcsvar.15="C1084"
									| &hcpcsvar.16="J9160" | &hcpcsvar.16="C1084"
									| &hcpcsvar.17="J9160" | &hcpcsvar.17="C1084"
									| &hcpcsvar.18="J9160" | &hcpcsvar.18="C1084"
									| &hcpcsvar.19="J9160" | &hcpcsvar.19="C1084"
									| &hcpcsvar.20="J9160" | &hcpcsvar.20="C1084"
									| &hcpcsvar.21="J9160" | &hcpcsvar.21="C1084"
									| &hcpcsvar.22="J9160" | &hcpcsvar.22="C1084"
									| &hcpcsvar.23="J9160" | &hcpcsvar.23="C1084"
									| &hcpcsvar.24="J9160" | &hcpcsvar.24="C1084"
									| &hcpcsvar.25="J9160" | &hcpcsvar.25="C1084"
									| &hcpcsvar.26="J9160" | &hcpcsvar.26="C1084"
									| &hcpcsvar.27="J9160" | &hcpcsvar.27="C1084"
									| &hcpcsvar.28="J9160" | &hcpcsvar.28="C1084"
									| &hcpcsvar.29="J9160" | &hcpcsvar.29="C1084"
									| &hcpcsvar.30="J9160" | &hcpcsvar.30="C1084"
									| &hcpcsvar.31="J9160" | &hcpcsvar.31="C1084"
									| &hcpcsvar.32="J9160" | &hcpcsvar.32="C1084"
									| &hcpcsvar.33="J9160" | &hcpcsvar.33="C1084"
									| &hcpcsvar.34="J9160" | &hcpcsvar.34="C1084"
									| &hcpcsvar.35="J9160" | &hcpcsvar.35="C1084"
									| &hcpcsvar.36="J9160" | &hcpcsvar.36="C1084"
									| &hcpcsvar.37="J9160" | &hcpcsvar.37="C1084"
									| &hcpcsvar.38="J9160" | &hcpcsvar.38="C1084"
									| &hcpcsvar.39="J9160" | &hcpcsvar.39="C1084"
									| &hcpcsvar.40="J9160" | &hcpcsvar.40="C1084"
									| &hcpcsvar.41="J9160" | &hcpcsvar.41="C1084"
									| &hcpcsvar.42="J9160" | &hcpcsvar.42="C1084"
									| &hcpcsvar.43="J9160" | &hcpcsvar.43="C1084"
									| &hcpcsvar.44="J9160" | &hcpcsvar.44="C1084"
									| &hcpcsvar.45="J9160" | &hcpcsvar.45="C1084"
									| &hcpcsvar.46="J9160" | &hcpcsvar.46="C1084"
									| &hcpcsvar.47="J9160" | &hcpcsvar.47="C1084"
									| &hcpcsvar.48="J9160" | &hcpcsvar.48="C1084"
									| &hcpcsvar.49="J9160" | &hcpcsvar.49="C1084"
									| &hcpcsvar.50="J9160" | &hcpcsvar.50="C1084"
									| &hcpcsvar.51="J9160" | &hcpcsvar.51="C1084"
									| &hcpcsvar.52="J9160" | &hcpcsvar.52="C1084"
									| &hcpcsvar.53="J9160" | &hcpcsvar.53="C1084"
									| &hcpcsvar.54="J9160" | &hcpcsvar.54="C1084"
									| &hcpcsvar.55="J9160" | &hcpcsvar.55="C1084"
									| &hcpcsvar.56="J9160" | &hcpcsvar.56="C1084"
									| &hcpcsvar.57="J9160" | &hcpcsvar.57="C1084"
									| &hcpcsvar.58="J9160" | &hcpcsvar.58="C1084";
				chem_temozolomide 	= &hcpcsvar.1 ="J9328" | &hcpcsvar.1 ="C9253" | &hcpcsvar.1 ="J8700" | &hcpcsvar.1 ="C1086"
									| &hcpcsvar.2 ="J9328" | &hcpcsvar.2 ="C9253" | &hcpcsvar.2 ="J8700" | &hcpcsvar.2 ="C1086"
									| &hcpcsvar.3 ="J9328" | &hcpcsvar.3 ="C9253" | &hcpcsvar.3 ="J8700" | &hcpcsvar.3 ="C1086"
									| &hcpcsvar.4 ="J9328" | &hcpcsvar.4 ="C9253" | &hcpcsvar.4 ="J8700" | &hcpcsvar.4 ="C1086"
									| &hcpcsvar.5 ="J9328" | &hcpcsvar.5 ="C9253" | &hcpcsvar.5 ="J8700" | &hcpcsvar.5 ="C1086"
									| &hcpcsvar.6 ="J9328" | &hcpcsvar.6 ="C9253" | &hcpcsvar.6 ="J8700" | &hcpcsvar.6 ="C1086"
									| &hcpcsvar.7 ="J9328" | &hcpcsvar.7 ="C9253" | &hcpcsvar.7 ="J8700" | &hcpcsvar.7 ="C1086"
									| &hcpcsvar.8 ="J9328" | &hcpcsvar.8 ="C9253" | &hcpcsvar.8 ="J8700" | &hcpcsvar.8 ="C1086"
									| &hcpcsvar.9 ="J9328" | &hcpcsvar.9 ="C9253" | &hcpcsvar.9 ="J8700" | &hcpcsvar.9 ="C1086"
									| &hcpcsvar.10="J9328" | &hcpcsvar.10="C9253" | &hcpcsvar.10="J8700" | &hcpcsvar.10="C1086"
									| &hcpcsvar.11="J9328" | &hcpcsvar.11="C9253" | &hcpcsvar.11="J8700" | &hcpcsvar.11="C1086"
									| &hcpcsvar.12="J9328" | &hcpcsvar.12="C9253" | &hcpcsvar.12="J8700" | &hcpcsvar.12="C1086"
									| &hcpcsvar.13="J9328" | &hcpcsvar.13="C9253" | &hcpcsvar.13="J8700" | &hcpcsvar.13="C1086"
									| &hcpcsvar.14="J9328" | &hcpcsvar.14="C9253" | &hcpcsvar.14="J8700" | &hcpcsvar.14="C1086"
									| &hcpcsvar.15="J9328" | &hcpcsvar.15="C9253" | &hcpcsvar.15="J8700" | &hcpcsvar.15="C1086"
									| &hcpcsvar.16="J9328" | &hcpcsvar.16="C9253" | &hcpcsvar.16="J8700" | &hcpcsvar.16="C1086"
									| &hcpcsvar.17="J9328" | &hcpcsvar.17="C9253" | &hcpcsvar.17="J8700" | &hcpcsvar.17="C1086"
									| &hcpcsvar.18="J9328" | &hcpcsvar.18="C9253" | &hcpcsvar.18="J8700" | &hcpcsvar.18="C1086"
									| &hcpcsvar.19="J9328" | &hcpcsvar.19="C9253" | &hcpcsvar.19="J8700" | &hcpcsvar.19="C1086"
									| &hcpcsvar.20="J9328" | &hcpcsvar.20="C9253" | &hcpcsvar.20="J8700" | &hcpcsvar.20="C1086"
									| &hcpcsvar.21="J9328" | &hcpcsvar.21="C9253" | &hcpcsvar.21="J8700" | &hcpcsvar.21="C1086"
									| &hcpcsvar.22="J9328" | &hcpcsvar.22="C9253" | &hcpcsvar.22="J8700" | &hcpcsvar.22="C1086"
									| &hcpcsvar.23="J9328" | &hcpcsvar.23="C9253" | &hcpcsvar.23="J8700" | &hcpcsvar.23="C1086"
									| &hcpcsvar.24="J9328" | &hcpcsvar.24="C9253" | &hcpcsvar.24="J8700" | &hcpcsvar.24="C1086"
									| &hcpcsvar.25="J9328" | &hcpcsvar.25="C9253" | &hcpcsvar.25="J8700" | &hcpcsvar.25="C1086"
									| &hcpcsvar.26="J9328" | &hcpcsvar.26="C9253" | &hcpcsvar.26="J8700" | &hcpcsvar.26="C1086"
									| &hcpcsvar.27="J9328" | &hcpcsvar.27="C9253" | &hcpcsvar.27="J8700" | &hcpcsvar.27="C1086"
									| &hcpcsvar.28="J9328" | &hcpcsvar.28="C9253" | &hcpcsvar.28="J8700" | &hcpcsvar.28="C1086"
									| &hcpcsvar.29="J9328" | &hcpcsvar.29="C9253" | &hcpcsvar.29="J8700" | &hcpcsvar.29="C1086"
									| &hcpcsvar.30="J9328" | &hcpcsvar.30="C9253" | &hcpcsvar.30="J8700" | &hcpcsvar.30="C1086"
									| &hcpcsvar.31="J9328" | &hcpcsvar.31="C9253" | &hcpcsvar.31="J8700" | &hcpcsvar.31="C1086"
									| &hcpcsvar.32="J9328" | &hcpcsvar.32="C9253" | &hcpcsvar.32="J8700" | &hcpcsvar.32="C1086"
									| &hcpcsvar.33="J9328" | &hcpcsvar.33="C9253" | &hcpcsvar.33="J8700" | &hcpcsvar.33="C1086"
									| &hcpcsvar.34="J9328" | &hcpcsvar.34="C9253" | &hcpcsvar.34="J8700" | &hcpcsvar.34="C1086"
									| &hcpcsvar.35="J9328" | &hcpcsvar.35="C9253" | &hcpcsvar.35="J8700" | &hcpcsvar.35="C1086"
									| &hcpcsvar.36="J9328" | &hcpcsvar.36="C9253" | &hcpcsvar.36="J8700" | &hcpcsvar.36="C1086"
									| &hcpcsvar.37="J9328" | &hcpcsvar.37="C9253" | &hcpcsvar.37="J8700" | &hcpcsvar.37="C1086"
									| &hcpcsvar.38="J9328" | &hcpcsvar.38="C9253" | &hcpcsvar.38="J8700" | &hcpcsvar.38="C1086"
									| &hcpcsvar.39="J9328" | &hcpcsvar.39="C9253" | &hcpcsvar.39="J8700" | &hcpcsvar.39="C1086"
									| &hcpcsvar.40="J9328" | &hcpcsvar.40="C9253" | &hcpcsvar.40="J8700" | &hcpcsvar.40="C1086"
									| &hcpcsvar.41="J9328" | &hcpcsvar.41="C9253" | &hcpcsvar.41="J8700" | &hcpcsvar.41="C1086"
									| &hcpcsvar.42="J9328" | &hcpcsvar.42="C9253" | &hcpcsvar.42="J8700" | &hcpcsvar.42="C1086"
									| &hcpcsvar.43="J9328" | &hcpcsvar.43="C9253" | &hcpcsvar.43="J8700" | &hcpcsvar.43="C1086"
									| &hcpcsvar.44="J9328" | &hcpcsvar.44="C9253" | &hcpcsvar.44="J8700" | &hcpcsvar.44="C1086"
									| &hcpcsvar.45="J9328" | &hcpcsvar.45="C9253" | &hcpcsvar.45="J8700" | &hcpcsvar.45="C1086"
									| &hcpcsvar.46="J9328" | &hcpcsvar.46="C9253" | &hcpcsvar.46="J8700" | &hcpcsvar.46="C1086"
									| &hcpcsvar.47="J9328" | &hcpcsvar.47="C9253" | &hcpcsvar.47="J8700" | &hcpcsvar.47="C1086"
									| &hcpcsvar.48="J9328" | &hcpcsvar.48="C9253" | &hcpcsvar.48="J8700" | &hcpcsvar.48="C1086"
									| &hcpcsvar.49="J9328" | &hcpcsvar.49="C9253" | &hcpcsvar.49="J8700" | &hcpcsvar.49="C1086"
									| &hcpcsvar.50="J9328" | &hcpcsvar.50="C9253" | &hcpcsvar.50="J8700" | &hcpcsvar.50="C1086"
									| &hcpcsvar.51="J9328" | &hcpcsvar.51="C9253" | &hcpcsvar.51="J8700" | &hcpcsvar.51="C1086"
									| &hcpcsvar.52="J9328" | &hcpcsvar.52="C9253" | &hcpcsvar.52="J8700" | &hcpcsvar.52="C1086"
									| &hcpcsvar.53="J9328" | &hcpcsvar.53="C9253" | &hcpcsvar.53="J8700" | &hcpcsvar.53="C1086"
									| &hcpcsvar.54="J9328" | &hcpcsvar.54="C9253" | &hcpcsvar.54="J8700" | &hcpcsvar.54="C1086"
									| &hcpcsvar.55="J9328" | &hcpcsvar.55="C9253" | &hcpcsvar.55="J8700" | &hcpcsvar.55="C1086"
									| &hcpcsvar.56="J9328" | &hcpcsvar.56="C9253" | &hcpcsvar.56="J8700" | &hcpcsvar.56="C1086"
									| &hcpcsvar.57="J9328" | &hcpcsvar.57="C9253" | &hcpcsvar.57="J8700" | &hcpcsvar.57="C1086"
									| &hcpcsvar.58="J9328" | &hcpcsvar.58="C9253" | &hcpcsvar.58="J8700" | &hcpcsvar.58="C1086";
				chem_epirubicin 	= &hcpcsvar.1 ="J9178" | &hcpcsvar.1 ="C1167"
									| &hcpcsvar.2 ="J9178" | &hcpcsvar.2 ="C1167"
									| &hcpcsvar.3 ="J9178" | &hcpcsvar.3 ="C1167"
									| &hcpcsvar.4 ="J9178" | &hcpcsvar.4 ="C1167"
									| &hcpcsvar.5 ="J9178" | &hcpcsvar.5 ="C1167"
									| &hcpcsvar.6 ="J9178" | &hcpcsvar.6 ="C1167"
									| &hcpcsvar.7 ="J9178" | &hcpcsvar.7 ="C1167"
									| &hcpcsvar.8 ="J9178" | &hcpcsvar.8 ="C1167"
									| &hcpcsvar.9 ="J9178" | &hcpcsvar.9 ="C1167"
									| &hcpcsvar.10="J9178" | &hcpcsvar.10="C1167"
									| &hcpcsvar.11="J9178" | &hcpcsvar.11="C1167"
									| &hcpcsvar.12="J9178" | &hcpcsvar.12="C1167"
									| &hcpcsvar.13="J9178" | &hcpcsvar.13="C1167"
									| &hcpcsvar.14="J9178" | &hcpcsvar.14="C1167"
									| &hcpcsvar.15="J9178" | &hcpcsvar.15="C1167"
									| &hcpcsvar.16="J9178" | &hcpcsvar.16="C1167"
									| &hcpcsvar.17="J9178" | &hcpcsvar.17="C1167"
									| &hcpcsvar.18="J9178" | &hcpcsvar.18="C1167"
									| &hcpcsvar.19="J9178" | &hcpcsvar.19="C1167"
									| &hcpcsvar.20="J9178" | &hcpcsvar.20="C1167"
									| &hcpcsvar.21="J9178" | &hcpcsvar.21="C1167"
									| &hcpcsvar.22="J9178" | &hcpcsvar.22="C1167"
									| &hcpcsvar.23="J9178" | &hcpcsvar.23="C1167"
									| &hcpcsvar.24="J9178" | &hcpcsvar.24="C1167"
									| &hcpcsvar.25="J9178" | &hcpcsvar.25="C1167"
									| &hcpcsvar.26="J9178" | &hcpcsvar.26="C1167"
									| &hcpcsvar.27="J9178" | &hcpcsvar.27="C1167"
									| &hcpcsvar.28="J9178" | &hcpcsvar.28="C1167"
									| &hcpcsvar.29="J9178" | &hcpcsvar.29="C1167"
									| &hcpcsvar.30="J9178" | &hcpcsvar.30="C1167"
									| &hcpcsvar.31="J9178" | &hcpcsvar.31="C1167"
									| &hcpcsvar.32="J9178" | &hcpcsvar.32="C1167"
									| &hcpcsvar.33="J9178" | &hcpcsvar.33="C1167"
									| &hcpcsvar.34="J9178" | &hcpcsvar.34="C1167"
									| &hcpcsvar.35="J9178" | &hcpcsvar.35="C1167"
									| &hcpcsvar.36="J9178" | &hcpcsvar.36="C1167"
									| &hcpcsvar.37="J9178" | &hcpcsvar.37="C1167"
									| &hcpcsvar.38="J9178" | &hcpcsvar.38="C1167"
									| &hcpcsvar.39="J9178" | &hcpcsvar.39="C1167"
									| &hcpcsvar.40="J9178" | &hcpcsvar.40="C1167"
									| &hcpcsvar.41="J9178" | &hcpcsvar.41="C1167"
									| &hcpcsvar.42="J9178" | &hcpcsvar.42="C1167"
									| &hcpcsvar.43="J9178" | &hcpcsvar.43="C1167"
									| &hcpcsvar.44="J9178" | &hcpcsvar.44="C1167"
									| &hcpcsvar.45="J9178" | &hcpcsvar.45="C1167"
									| &hcpcsvar.46="J9178" | &hcpcsvar.46="C1167"
									| &hcpcsvar.47="J9178" | &hcpcsvar.47="C1167"
									| &hcpcsvar.48="J9178" | &hcpcsvar.48="C1167"
									| &hcpcsvar.49="J9178" | &hcpcsvar.49="C1167"
									| &hcpcsvar.50="J9178" | &hcpcsvar.50="C1167"
									| &hcpcsvar.51="J9178" | &hcpcsvar.51="C1167"
									| &hcpcsvar.52="J9178" | &hcpcsvar.52="C1167"
									| &hcpcsvar.53="J9178" | &hcpcsvar.53="C1167"
									| &hcpcsvar.54="J9178" | &hcpcsvar.54="C1167"
									| &hcpcsvar.55="J9178" | &hcpcsvar.55="C1167"
									| &hcpcsvar.56="J9178" | &hcpcsvar.56="C1167"
									| &hcpcsvar.57="J9178" | &hcpcsvar.57="C1167"
									| &hcpcsvar.58="J9178" | &hcpcsvar.58="C1167";
				chem_bcg	 		= &hcpcsvar.1 ="J9031"
									| &hcpcsvar.2 ="J9031"
									| &hcpcsvar.3 ="J9031"
									| &hcpcsvar.4 ="J9031"
									| &hcpcsvar.5 ="J9031"
									| &hcpcsvar.6 ="J9031"
									| &hcpcsvar.7 ="J9031"
									| &hcpcsvar.8 ="J9031"
									| &hcpcsvar.9 ="J9031"
									| &hcpcsvar.10="J9031"
									| &hcpcsvar.11="J9031"
									| &hcpcsvar.12="J9031"
									| &hcpcsvar.13="J9031"
									| &hcpcsvar.14="J9031"
									| &hcpcsvar.15="J9031"
									| &hcpcsvar.16="J9031"
									| &hcpcsvar.17="J9031"
									| &hcpcsvar.18="J9031"
									| &hcpcsvar.19="J9031"
									| &hcpcsvar.20="J9031"
									| &hcpcsvar.21="J9031"
									| &hcpcsvar.22="J9031"
									| &hcpcsvar.23="J9031"
									| &hcpcsvar.24="J9031"
									| &hcpcsvar.25="J9031"
									| &hcpcsvar.26="J9031"
									| &hcpcsvar.27="J9031"
									| &hcpcsvar.28="J9031"
									| &hcpcsvar.29="J9031"
									| &hcpcsvar.30="J9031"
									| &hcpcsvar.31="J9031"
									| &hcpcsvar.32="J9031"
									| &hcpcsvar.33="J9031"
									| &hcpcsvar.34="J9031"
									| &hcpcsvar.35="J9031"
									| &hcpcsvar.36="J9031"
									| &hcpcsvar.37="J9031"
									| &hcpcsvar.38="J9031"
									| &hcpcsvar.39="J9031"
									| &hcpcsvar.40="J9031"
									| &hcpcsvar.41="J9031"
									| &hcpcsvar.42="J9031"
									| &hcpcsvar.43="J9031"
									| &hcpcsvar.44="J9031"
									| &hcpcsvar.45="J9031"
									| &hcpcsvar.46="J9031"
									| &hcpcsvar.47="J9031"
									| &hcpcsvar.48="J9031"
									| &hcpcsvar.49="J9031"
									| &hcpcsvar.50="J9031"
									| &hcpcsvar.51="J9031"
									| &hcpcsvar.52="J9031"
									| &hcpcsvar.53="J9031"
									| &hcpcsvar.54="J9031"
									| &hcpcsvar.55="J9031"
									| &hcpcsvar.56="J9031"
									| &hcpcsvar.57="J9031"
									| &hcpcsvar.58="J9031";
				chem_gemtuzumab 	= &hcpcsvar.1 ="J9300" | &hcpcsvar.1 ="C9004"
									| &hcpcsvar.2 ="J9300" | &hcpcsvar.2 ="C9004"
									| &hcpcsvar.3 ="J9300" | &hcpcsvar.3 ="C9004"
									| &hcpcsvar.4 ="J9300" | &hcpcsvar.4 ="C9004"
									| &hcpcsvar.5 ="J9300" | &hcpcsvar.5 ="C9004"
									| &hcpcsvar.6 ="J9300" | &hcpcsvar.6 ="C9004"
									| &hcpcsvar.7 ="J9300" | &hcpcsvar.7 ="C9004"
									| &hcpcsvar.8 ="J9300" | &hcpcsvar.8 ="C9004"
									| &hcpcsvar.9 ="J9300" | &hcpcsvar.9 ="C9004"
									| &hcpcsvar.10="J9300" | &hcpcsvar.10="C9004"
									| &hcpcsvar.11="J9300" | &hcpcsvar.11="C9004"
									| &hcpcsvar.12="J9300" | &hcpcsvar.12="C9004"
									| &hcpcsvar.13="J9300" | &hcpcsvar.13="C9004"
									| &hcpcsvar.14="J9300" | &hcpcsvar.14="C9004"
									| &hcpcsvar.15="J9300" | &hcpcsvar.15="C9004"
									| &hcpcsvar.16="J9300" | &hcpcsvar.16="C9004"
									| &hcpcsvar.17="J9300" | &hcpcsvar.17="C9004"
									| &hcpcsvar.18="J9300" | &hcpcsvar.18="C9004"
									| &hcpcsvar.19="J9300" | &hcpcsvar.19="C9004"
									| &hcpcsvar.20="J9300" | &hcpcsvar.20="C9004"
									| &hcpcsvar.21="J9300" | &hcpcsvar.21="C9004"
									| &hcpcsvar.22="J9300" | &hcpcsvar.22="C9004"
									| &hcpcsvar.23="J9300" | &hcpcsvar.23="C9004"
									| &hcpcsvar.24="J9300" | &hcpcsvar.24="C9004"
									| &hcpcsvar.25="J9300" | &hcpcsvar.25="C9004"
									| &hcpcsvar.26="J9300" | &hcpcsvar.26="C9004"
									| &hcpcsvar.27="J9300" | &hcpcsvar.27="C9004"
									| &hcpcsvar.28="J9300" | &hcpcsvar.28="C9004"
									| &hcpcsvar.29="J9300" | &hcpcsvar.29="C9004"
									| &hcpcsvar.30="J9300" | &hcpcsvar.30="C9004"
									| &hcpcsvar.31="J9300" | &hcpcsvar.31="C9004"
									| &hcpcsvar.32="J9300" | &hcpcsvar.32="C9004"
									| &hcpcsvar.33="J9300" | &hcpcsvar.33="C9004"
									| &hcpcsvar.34="J9300" | &hcpcsvar.34="C9004"
									| &hcpcsvar.35="J9300" | &hcpcsvar.35="C9004"
									| &hcpcsvar.36="J9300" | &hcpcsvar.36="C9004"
									| &hcpcsvar.37="J9300" | &hcpcsvar.37="C9004"
									| &hcpcsvar.38="J9300" | &hcpcsvar.38="C9004"
									| &hcpcsvar.39="J9300" | &hcpcsvar.39="C9004"
									| &hcpcsvar.40="J9300" | &hcpcsvar.40="C9004"
									| &hcpcsvar.41="J9300" | &hcpcsvar.41="C9004"
									| &hcpcsvar.42="J9300" | &hcpcsvar.42="C9004"
									| &hcpcsvar.43="J9300" | &hcpcsvar.43="C9004"
									| &hcpcsvar.44="J9300" | &hcpcsvar.44="C9004"
									| &hcpcsvar.45="J9300" | &hcpcsvar.45="C9004"
									| &hcpcsvar.46="J9300" | &hcpcsvar.46="C9004"
									| &hcpcsvar.47="J9300" | &hcpcsvar.47="C9004"
									| &hcpcsvar.48="J9300" | &hcpcsvar.48="C9004"
									| &hcpcsvar.49="J9300" | &hcpcsvar.49="C9004"
									| &hcpcsvar.50="J9300" | &hcpcsvar.50="C9004"
									| &hcpcsvar.51="J9300" | &hcpcsvar.51="C9004"
									| &hcpcsvar.52="J9300" | &hcpcsvar.52="C9004"
									| &hcpcsvar.53="J9300" | &hcpcsvar.53="C9004"
									| &hcpcsvar.54="J9300" | &hcpcsvar.54="C9004"
									| &hcpcsvar.55="J9300" | &hcpcsvar.55="C9004"
									| &hcpcsvar.56="J9300" | &hcpcsvar.56="C9004"
									| &hcpcsvar.57="J9300" | &hcpcsvar.57="C9004"
									| &hcpcsvar.58="J9300" | &hcpcsvar.58="C9004";
				chem_triptorelin 	= &hcpcsvar.1 ="J3315"
									| &hcpcsvar.2 ="J3315"
									| &hcpcsvar.3 ="J3315"
									| &hcpcsvar.4 ="J3315"
									| &hcpcsvar.5 ="J3315"
									| &hcpcsvar.6 ="J3315"
									| &hcpcsvar.7 ="J3315"
									| &hcpcsvar.8 ="J3315"
									| &hcpcsvar.9 ="J3315"
									| &hcpcsvar.10="J3315"
									| &hcpcsvar.11="J3315"
									| &hcpcsvar.12="J3315"
									| &hcpcsvar.13="J3315"
									| &hcpcsvar.14="J3315"
									| &hcpcsvar.15="J3315"
									| &hcpcsvar.16="J3315"
									| &hcpcsvar.17="J3315"
									| &hcpcsvar.18="J3315"
									| &hcpcsvar.19="J3315"
									| &hcpcsvar.20="J3315"
									| &hcpcsvar.21="J3315"
									| &hcpcsvar.22="J3315"
									| &hcpcsvar.23="J3315"
									| &hcpcsvar.24="J3315"
									| &hcpcsvar.25="J3315"
									| &hcpcsvar.26="J3315"
									| &hcpcsvar.27="J3315"
									| &hcpcsvar.28="J3315"
									| &hcpcsvar.29="J3315"
									| &hcpcsvar.30="J3315"
									| &hcpcsvar.31="J3315"
									| &hcpcsvar.32="J3315"
									| &hcpcsvar.33="J3315"
									| &hcpcsvar.34="J3315"
									| &hcpcsvar.35="J3315"
									| &hcpcsvar.36="J3315"
									| &hcpcsvar.37="J3315"
									| &hcpcsvar.38="J3315"
									| &hcpcsvar.39="J3315"
									| &hcpcsvar.40="J3315"
									| &hcpcsvar.41="J3315"
									| &hcpcsvar.42="J3315"
									| &hcpcsvar.43="J3315"
									| &hcpcsvar.44="J3315"
									| &hcpcsvar.45="J3315"
									| &hcpcsvar.46="J3315"
									| &hcpcsvar.47="J3315"
									| &hcpcsvar.48="J3315"
									| &hcpcsvar.49="J3315"
									| &hcpcsvar.50="J3315"
									| &hcpcsvar.51="J3315"
									| &hcpcsvar.52="J3315"
									| &hcpcsvar.53="J3315"
									| &hcpcsvar.54="J3315"
									| &hcpcsvar.55="J3315"
									| &hcpcsvar.56="J3315"
									| &hcpcsvar.57="J3315"
									| &hcpcsvar.58="J3315";
				chem_arsenic 		= &hcpcsvar.1 ="J9017" | &hcpcsvar.1 ="C9012"
									| &hcpcsvar.2 ="J9017" | &hcpcsvar.2 ="C9012"
									| &hcpcsvar.3 ="J9017" | &hcpcsvar.3 ="C9012"
									| &hcpcsvar.4 ="J9017" | &hcpcsvar.4 ="C9012"
									| &hcpcsvar.5 ="J9017" | &hcpcsvar.5 ="C9012"
									| &hcpcsvar.6 ="J9017" | &hcpcsvar.6 ="C9012"
									| &hcpcsvar.7 ="J9017" | &hcpcsvar.7 ="C9012"
									| &hcpcsvar.8 ="J9017" | &hcpcsvar.8 ="C9012"
									| &hcpcsvar.9 ="J9017" | &hcpcsvar.9 ="C9012"
									| &hcpcsvar.10="J9017" | &hcpcsvar.10="C9012"
									| &hcpcsvar.11="J9017" | &hcpcsvar.11="C9012"
									| &hcpcsvar.12="J9017" | &hcpcsvar.12="C9012"
									| &hcpcsvar.13="J9017" | &hcpcsvar.13="C9012"
									| &hcpcsvar.14="J9017" | &hcpcsvar.14="C9012"
									| &hcpcsvar.15="J9017" | &hcpcsvar.15="C9012"
									| &hcpcsvar.16="J9017" | &hcpcsvar.16="C9012"
									| &hcpcsvar.17="J9017" | &hcpcsvar.17="C9012"
									| &hcpcsvar.18="J9017" | &hcpcsvar.18="C9012"
									| &hcpcsvar.19="J9017" | &hcpcsvar.19="C9012"
									| &hcpcsvar.20="J9017" | &hcpcsvar.20="C9012"
									| &hcpcsvar.21="J9017" | &hcpcsvar.21="C9012"
									| &hcpcsvar.22="J9017" | &hcpcsvar.22="C9012"
									| &hcpcsvar.23="J9017" | &hcpcsvar.23="C9012"
									| &hcpcsvar.24="J9017" | &hcpcsvar.24="C9012"
									| &hcpcsvar.25="J9017" | &hcpcsvar.25="C9012"
									| &hcpcsvar.26="J9017" | &hcpcsvar.26="C9012"
									| &hcpcsvar.27="J9017" | &hcpcsvar.27="C9012"
									| &hcpcsvar.28="J9017" | &hcpcsvar.28="C9012"
									| &hcpcsvar.29="J9017" | &hcpcsvar.29="C9012"
									| &hcpcsvar.30="J9017" | &hcpcsvar.30="C9012"
									| &hcpcsvar.31="J9017" | &hcpcsvar.31="C9012"
									| &hcpcsvar.32="J9017" | &hcpcsvar.32="C9012"
									| &hcpcsvar.33="J9017" | &hcpcsvar.33="C9012"
									| &hcpcsvar.34="J9017" | &hcpcsvar.34="C9012"
									| &hcpcsvar.35="J9017" | &hcpcsvar.35="C9012"
									| &hcpcsvar.36="J9017" | &hcpcsvar.36="C9012"
									| &hcpcsvar.37="J9017" | &hcpcsvar.37="C9012"
									| &hcpcsvar.38="J9017" | &hcpcsvar.38="C9012"
									| &hcpcsvar.39="J9017" | &hcpcsvar.39="C9012"
									| &hcpcsvar.40="J9017" | &hcpcsvar.40="C9012"
									| &hcpcsvar.41="J9017" | &hcpcsvar.41="C9012"
									| &hcpcsvar.42="J9017" | &hcpcsvar.42="C9012"
									| &hcpcsvar.43="J9017" | &hcpcsvar.43="C9012"
									| &hcpcsvar.44="J9017" | &hcpcsvar.44="C9012"
									| &hcpcsvar.45="J9017" | &hcpcsvar.45="C9012"
									| &hcpcsvar.46="J9017" | &hcpcsvar.46="C9012"
									| &hcpcsvar.47="J9017" | &hcpcsvar.47="C9012"
									| &hcpcsvar.48="J9017" | &hcpcsvar.48="C9012"
									| &hcpcsvar.49="J9017" | &hcpcsvar.49="C9012"
									| &hcpcsvar.50="J9017" | &hcpcsvar.50="C9012"
									| &hcpcsvar.51="J9017" | &hcpcsvar.51="C9012"
									| &hcpcsvar.52="J9017" | &hcpcsvar.52="C9012"
									| &hcpcsvar.53="J9017" | &hcpcsvar.53="C9012"
									| &hcpcsvar.54="J9017" | &hcpcsvar.54="C9012"
									| &hcpcsvar.55="J9017" | &hcpcsvar.55="C9012"
									| &hcpcsvar.56="J9017" | &hcpcsvar.56="C9012"
									| &hcpcsvar.57="J9017" | &hcpcsvar.57="C9012"
									| &hcpcsvar.58="J9017" | &hcpcsvar.58="C9012";
				chem_alemtuzumab 	= &hcpcsvar.1 ="J9010" | &hcpcsvar.1 ="C9110"
									| &hcpcsvar.2 ="J9010" | &hcpcsvar.2 ="C9110"
									| &hcpcsvar.3 ="J9010" | &hcpcsvar.3 ="C9110"
									| &hcpcsvar.4 ="J9010" | &hcpcsvar.4 ="C9110"
									| &hcpcsvar.5 ="J9010" | &hcpcsvar.5 ="C9110"
									| &hcpcsvar.6 ="J9010" | &hcpcsvar.6 ="C9110"
									| &hcpcsvar.7 ="J9010" | &hcpcsvar.7 ="C9110"
									| &hcpcsvar.8 ="J9010" | &hcpcsvar.8 ="C9110"
									| &hcpcsvar.9 ="J9010" | &hcpcsvar.9 ="C9110"
									| &hcpcsvar.10="J9010" | &hcpcsvar.10="C9110"
									| &hcpcsvar.11="J9010" | &hcpcsvar.11="C9110"
									| &hcpcsvar.12="J9010" | &hcpcsvar.12="C9110"
									| &hcpcsvar.13="J9010" | &hcpcsvar.13="C9110"
									| &hcpcsvar.14="J9010" | &hcpcsvar.14="C9110"
									| &hcpcsvar.15="J9010" | &hcpcsvar.15="C9110"
									| &hcpcsvar.16="J9010" | &hcpcsvar.16="C9110"
									| &hcpcsvar.17="J9010" | &hcpcsvar.17="C9110"
									| &hcpcsvar.18="J9010" | &hcpcsvar.18="C9110"
									| &hcpcsvar.19="J9010" | &hcpcsvar.19="C9110"
									| &hcpcsvar.20="J9010" | &hcpcsvar.20="C9110"
									| &hcpcsvar.21="J9010" | &hcpcsvar.21="C9110"
									| &hcpcsvar.22="J9010" | &hcpcsvar.22="C9110"
									| &hcpcsvar.23="J9010" | &hcpcsvar.23="C9110"
									| &hcpcsvar.24="J9010" | &hcpcsvar.24="C9110"
									| &hcpcsvar.25="J9010" | &hcpcsvar.25="C9110"
									| &hcpcsvar.26="J9010" | &hcpcsvar.26="C9110"
									| &hcpcsvar.27="J9010" | &hcpcsvar.27="C9110"
									| &hcpcsvar.28="J9010" | &hcpcsvar.28="C9110"
									| &hcpcsvar.29="J9010" | &hcpcsvar.29="C9110"
									| &hcpcsvar.30="J9010" | &hcpcsvar.30="C9110"
									| &hcpcsvar.31="J9010" | &hcpcsvar.31="C9110"
									| &hcpcsvar.32="J9010" | &hcpcsvar.32="C9110"
									| &hcpcsvar.33="J9010" | &hcpcsvar.33="C9110"
									| &hcpcsvar.34="J9010" | &hcpcsvar.34="C9110"
									| &hcpcsvar.35="J9010" | &hcpcsvar.35="C9110"
									| &hcpcsvar.36="J9010" | &hcpcsvar.36="C9110"
									| &hcpcsvar.37="J9010" | &hcpcsvar.37="C9110"
									| &hcpcsvar.38="J9010" | &hcpcsvar.38="C9110"
									| &hcpcsvar.39="J9010" | &hcpcsvar.39="C9110"
									| &hcpcsvar.40="J9010" | &hcpcsvar.40="C9110"
									| &hcpcsvar.41="J9010" | &hcpcsvar.41="C9110"
									| &hcpcsvar.42="J9010" | &hcpcsvar.42="C9110"
									| &hcpcsvar.43="J9010" | &hcpcsvar.43="C9110"
									| &hcpcsvar.44="J9010" | &hcpcsvar.44="C9110"
									| &hcpcsvar.45="J9010" | &hcpcsvar.45="C9110"
									| &hcpcsvar.46="J9010" | &hcpcsvar.46="C9110"
									| &hcpcsvar.47="J9010" | &hcpcsvar.47="C9110"
									| &hcpcsvar.48="J9010" | &hcpcsvar.48="C9110"
									| &hcpcsvar.49="J9010" | &hcpcsvar.49="C9110"
									| &hcpcsvar.50="J9010" | &hcpcsvar.50="C9110"
									| &hcpcsvar.51="J9010" | &hcpcsvar.51="C9110"
									| &hcpcsvar.52="J9010" | &hcpcsvar.52="C9110"
									| &hcpcsvar.53="J9010" | &hcpcsvar.53="C9110"
									| &hcpcsvar.54="J9010" | &hcpcsvar.54="C9110"
									| &hcpcsvar.55="J9010" | &hcpcsvar.55="C9110"
									| &hcpcsvar.56="J9010" | &hcpcsvar.56="C9110"
									| &hcpcsvar.57="J9010" | &hcpcsvar.57="C9110"
									| &hcpcsvar.58="J9010" | &hcpcsvar.58="C9110";
				chem_zoledronic 	= &hcpcsvar.1 ="J3487"
									| &hcpcsvar.2 ="J3487"
									| &hcpcsvar.3 ="J3487"
									| &hcpcsvar.4 ="J3487"
									| &hcpcsvar.5 ="J3487"
									| &hcpcsvar.6 ="J3487"
									| &hcpcsvar.7 ="J3487"
									| &hcpcsvar.8 ="J3487"
									| &hcpcsvar.9 ="J3487"
									| &hcpcsvar.10="J3487"
									| &hcpcsvar.11="J3487"
									| &hcpcsvar.12="J3487"
									| &hcpcsvar.13="J3487"
									| &hcpcsvar.14="J3487"
									| &hcpcsvar.15="J3487"
									| &hcpcsvar.16="J3487"
									| &hcpcsvar.17="J3487"
									| &hcpcsvar.18="J3487"
									| &hcpcsvar.19="J3487"
									| &hcpcsvar.20="J3487"
									| &hcpcsvar.21="J3487"
									| &hcpcsvar.22="J3487"
									| &hcpcsvar.23="J3487"
									| &hcpcsvar.24="J3487"
									| &hcpcsvar.25="J3487"
									| &hcpcsvar.26="J3487"
									| &hcpcsvar.27="J3487"
									| &hcpcsvar.28="J3487"
									| &hcpcsvar.29="J3487"
									| &hcpcsvar.30="J3487"
									| &hcpcsvar.31="J3487"
									| &hcpcsvar.32="J3487"
									| &hcpcsvar.33="J3487"
									| &hcpcsvar.34="J3487"
									| &hcpcsvar.35="J3487"
									| &hcpcsvar.36="J3487"
									| &hcpcsvar.37="J3487"
									| &hcpcsvar.38="J3487"
									| &hcpcsvar.39="J3487"
									| &hcpcsvar.40="J3487"
									| &hcpcsvar.41="J3487"
									| &hcpcsvar.42="J3487"
									| &hcpcsvar.43="J3487"
									| &hcpcsvar.44="J3487"
									| &hcpcsvar.45="J3487"
									| &hcpcsvar.46="J3487"
									| &hcpcsvar.47="J3487"
									| &hcpcsvar.48="J3487"
									| &hcpcsvar.49="J3487"
									| &hcpcsvar.50="J3487"
									| &hcpcsvar.51="J3487"
									| &hcpcsvar.52="J3487"
									| &hcpcsvar.53="J3487"
									| &hcpcsvar.54="J3487"
									| &hcpcsvar.55="J3487"
									| &hcpcsvar.56="J3487"
									| &hcpcsvar.57="J3487"
									| &hcpcsvar.58="J3487";
				chem_ibritumomab 	= &hcpcsvar.1 ="A9542" | &hcpcsvar.1 ="A9543" | &hcpcsvar.1 ="C1082" | &hcpcsvar.1 ="C9117" | &hcpcsvar.1 ="A9522"
									| &hcpcsvar.2 ="A9542" | &hcpcsvar.2 ="A9543" | &hcpcsvar.2 ="C1082" | &hcpcsvar.2 ="C9117" | &hcpcsvar.2 ="A9522"
									| &hcpcsvar.3 ="A9542" | &hcpcsvar.3 ="A9543" | &hcpcsvar.3 ="C1082" | &hcpcsvar.3 ="C9117" | &hcpcsvar.3 ="A9522"
									| &hcpcsvar.4 ="A9542" | &hcpcsvar.4 ="A9543" | &hcpcsvar.4 ="C1082" | &hcpcsvar.4 ="C9117" | &hcpcsvar.4 ="A9522"
									| &hcpcsvar.5 ="A9542" | &hcpcsvar.5 ="A9543" | &hcpcsvar.5 ="C1082" | &hcpcsvar.5 ="C9117" | &hcpcsvar.5 ="A9522"
									| &hcpcsvar.6 ="A9542" | &hcpcsvar.6 ="A9543" | &hcpcsvar.6 ="C1082" | &hcpcsvar.6 ="C9117" | &hcpcsvar.6 ="A9522"
									| &hcpcsvar.7 ="A9542" | &hcpcsvar.7 ="A9543" | &hcpcsvar.7 ="C1082" | &hcpcsvar.7 ="C9117" | &hcpcsvar.7 ="A9522"
									| &hcpcsvar.8 ="A9542" | &hcpcsvar.8 ="A9543" | &hcpcsvar.8 ="C1082" | &hcpcsvar.8 ="C9117" | &hcpcsvar.8 ="A9522"
									| &hcpcsvar.9 ="A9542" | &hcpcsvar.9 ="A9543" | &hcpcsvar.9 ="C1082" | &hcpcsvar.9 ="C9117" | &hcpcsvar.9 ="A9522"
									| &hcpcsvar.10="A9542" | &hcpcsvar.10="A9543" | &hcpcsvar.10="C1082" | &hcpcsvar.10="C9117" | &hcpcsvar.10="A9522"
									| &hcpcsvar.11="A9542" | &hcpcsvar.11="A9543" | &hcpcsvar.11="C1082" | &hcpcsvar.11="C9117" | &hcpcsvar.11="A9522"
									| &hcpcsvar.12="A9542" | &hcpcsvar.12="A9543" | &hcpcsvar.12="C1082" | &hcpcsvar.12="C9117" | &hcpcsvar.12="A9522"
									| &hcpcsvar.13="A9542" | &hcpcsvar.13="A9543" | &hcpcsvar.13="C1082" | &hcpcsvar.13="C9117" | &hcpcsvar.13="A9522"
									| &hcpcsvar.14="A9542" | &hcpcsvar.14="A9543" | &hcpcsvar.14="C1082" | &hcpcsvar.14="C9117" | &hcpcsvar.14="A9522"
									| &hcpcsvar.15="A9542" | &hcpcsvar.15="A9543" | &hcpcsvar.15="C1082" | &hcpcsvar.15="C9117" | &hcpcsvar.15="A9522"
									| &hcpcsvar.16="A9542" | &hcpcsvar.16="A9543" | &hcpcsvar.16="C1082" | &hcpcsvar.16="C9117" | &hcpcsvar.16="A9522"
									| &hcpcsvar.17="A9542" | &hcpcsvar.17="A9543" | &hcpcsvar.17="C1082" | &hcpcsvar.17="C9117" | &hcpcsvar.17="A9522"
									| &hcpcsvar.18="A9542" | &hcpcsvar.18="A9543" | &hcpcsvar.18="C1082" | &hcpcsvar.18="C9117" | &hcpcsvar.18="A9522"
									| &hcpcsvar.19="A9542" | &hcpcsvar.19="A9543" | &hcpcsvar.19="C1082" | &hcpcsvar.19="C9117" | &hcpcsvar.19="A9522"
									| &hcpcsvar.20="A9542" | &hcpcsvar.20="A9543" | &hcpcsvar.20="C1082" | &hcpcsvar.20="C9117" | &hcpcsvar.20="A9522"
									| &hcpcsvar.21="A9542" | &hcpcsvar.21="A9543" | &hcpcsvar.21="C1082" | &hcpcsvar.21="C9117" | &hcpcsvar.21="A9522"
									| &hcpcsvar.22="A9542" | &hcpcsvar.22="A9543" | &hcpcsvar.22="C1082" | &hcpcsvar.22="C9117" | &hcpcsvar.22="A9522"
									| &hcpcsvar.23="A9542" | &hcpcsvar.23="A9543" | &hcpcsvar.23="C1082" | &hcpcsvar.23="C9117" | &hcpcsvar.23="A9522"
									| &hcpcsvar.24="A9542" | &hcpcsvar.24="A9543" | &hcpcsvar.24="C1082" | &hcpcsvar.24="C9117" | &hcpcsvar.24="A9522"
									| &hcpcsvar.25="A9542" | &hcpcsvar.25="A9543" | &hcpcsvar.25="C1082" | &hcpcsvar.25="C9117" | &hcpcsvar.25="A9522"
									| &hcpcsvar.26="A9542" | &hcpcsvar.26="A9543" | &hcpcsvar.26="C1082" | &hcpcsvar.26="C9117" | &hcpcsvar.26="A9522"
									| &hcpcsvar.27="A9542" | &hcpcsvar.27="A9543" | &hcpcsvar.27="C1082" | &hcpcsvar.27="C9117" | &hcpcsvar.27="A9522"
									| &hcpcsvar.28="A9542" | &hcpcsvar.28="A9543" | &hcpcsvar.28="C1082" | &hcpcsvar.28="C9117" | &hcpcsvar.28="A9522"
									| &hcpcsvar.29="A9542" | &hcpcsvar.29="A9543" | &hcpcsvar.29="C1082" | &hcpcsvar.29="C9117" | &hcpcsvar.29="A9522"
									| &hcpcsvar.30="A9542" | &hcpcsvar.30="A9543" | &hcpcsvar.30="C1082" | &hcpcsvar.30="C9117" | &hcpcsvar.30="A9522"
									| &hcpcsvar.31="A9542" | &hcpcsvar.31="A9543" | &hcpcsvar.31="C1082" | &hcpcsvar.31="C9117" | &hcpcsvar.31="A9522"
									| &hcpcsvar.32="A9542" | &hcpcsvar.32="A9543" | &hcpcsvar.32="C1082" | &hcpcsvar.32="C9117" | &hcpcsvar.32="A9522"
									| &hcpcsvar.33="A9542" | &hcpcsvar.33="A9543" | &hcpcsvar.33="C1082" | &hcpcsvar.33="C9117" | &hcpcsvar.33="A9522"
									| &hcpcsvar.34="A9542" | &hcpcsvar.34="A9543" | &hcpcsvar.34="C1082" | &hcpcsvar.34="C9117" | &hcpcsvar.34="A9522"
									| &hcpcsvar.35="A9542" | &hcpcsvar.35="A9543" | &hcpcsvar.35="C1082" | &hcpcsvar.35="C9117" | &hcpcsvar.35="A9522"
									| &hcpcsvar.36="A9542" | &hcpcsvar.36="A9543" | &hcpcsvar.36="C1082" | &hcpcsvar.36="C9117" | &hcpcsvar.36="A9522"
									| &hcpcsvar.37="A9542" | &hcpcsvar.37="A9543" | &hcpcsvar.37="C1082" | &hcpcsvar.37="C9117" | &hcpcsvar.37="A9522"
									| &hcpcsvar.38="A9542" | &hcpcsvar.38="A9543" | &hcpcsvar.38="C1082" | &hcpcsvar.38="C9117" | &hcpcsvar.38="A9522"
									| &hcpcsvar.39="A9542" | &hcpcsvar.39="A9543" | &hcpcsvar.39="C1082" | &hcpcsvar.39="C9117" | &hcpcsvar.39="A9522"
									| &hcpcsvar.40="A9542" | &hcpcsvar.40="A9543" | &hcpcsvar.40="C1082" | &hcpcsvar.40="C9117" | &hcpcsvar.40="A9522"
									| &hcpcsvar.41="A9542" | &hcpcsvar.41="A9543" | &hcpcsvar.41="C1082" | &hcpcsvar.41="C9117" | &hcpcsvar.41="A9522"
									| &hcpcsvar.42="A9542" | &hcpcsvar.42="A9543" | &hcpcsvar.42="C1082" | &hcpcsvar.42="C9117" | &hcpcsvar.42="A9522"
									| &hcpcsvar.43="A9542" | &hcpcsvar.43="A9543" | &hcpcsvar.43="C1082" | &hcpcsvar.43="C9117" | &hcpcsvar.43="A9522"
									| &hcpcsvar.44="A9542" | &hcpcsvar.44="A9543" | &hcpcsvar.44="C1082" | &hcpcsvar.44="C9117" | &hcpcsvar.44="A9522"
									| &hcpcsvar.45="A9542" | &hcpcsvar.45="A9543" | &hcpcsvar.45="C1082" | &hcpcsvar.45="C9117" | &hcpcsvar.45="A9522"
									| &hcpcsvar.46="A9542" | &hcpcsvar.46="A9543" | &hcpcsvar.46="C1082" | &hcpcsvar.46="C9117" | &hcpcsvar.46="A9522"
									| &hcpcsvar.47="A9542" | &hcpcsvar.47="A9543" | &hcpcsvar.47="C1082" | &hcpcsvar.47="C9117" | &hcpcsvar.47="A9522"
									| &hcpcsvar.48="A9542" | &hcpcsvar.48="A9543" | &hcpcsvar.48="C1082" | &hcpcsvar.48="C9117" | &hcpcsvar.48="A9522"
									| &hcpcsvar.49="A9542" | &hcpcsvar.49="A9543" | &hcpcsvar.49="C1082" | &hcpcsvar.49="C9117" | &hcpcsvar.49="A9522"
									| &hcpcsvar.50="A9542" | &hcpcsvar.50="A9543" | &hcpcsvar.50="C1082" | &hcpcsvar.50="C9117" | &hcpcsvar.50="A9522"
									| &hcpcsvar.51="A9542" | &hcpcsvar.51="A9543" | &hcpcsvar.51="C1082" | &hcpcsvar.51="C9117" | &hcpcsvar.51="A9522"
									| &hcpcsvar.52="A9542" | &hcpcsvar.52="A9543" | &hcpcsvar.52="C1082" | &hcpcsvar.52="C9117" | &hcpcsvar.52="A9522"
									| &hcpcsvar.53="A9542" | &hcpcsvar.53="A9543" | &hcpcsvar.53="C1082" | &hcpcsvar.53="C9117" | &hcpcsvar.53="A9522"
									| &hcpcsvar.54="A9542" | &hcpcsvar.54="A9543" | &hcpcsvar.54="C1082" | &hcpcsvar.54="C9117" | &hcpcsvar.54="A9522"
									| &hcpcsvar.55="A9542" | &hcpcsvar.55="A9543" | &hcpcsvar.55="C1082" | &hcpcsvar.55="C9117" | &hcpcsvar.55="A9522"
									| &hcpcsvar.56="A9542" | &hcpcsvar.56="A9543" | &hcpcsvar.56="C1082" | &hcpcsvar.56="C9117" | &hcpcsvar.56="A9522"
									| &hcpcsvar.57="A9542" | &hcpcsvar.57="A9543" | &hcpcsvar.57="C1082" | &hcpcsvar.57="C9117" | &hcpcsvar.57="A9522"
									| &hcpcsvar.58="A9542" | &hcpcsvar.58="A9543" | &hcpcsvar.58="C1082" | &hcpcsvar.58="C9117" | &hcpcsvar.58="A9522";
				chem_fulvestrant 	= &hcpcsvar.1 ="J9395" | &hcpcsvar.1 ="C9120"
									| &hcpcsvar.2 ="J9395" | &hcpcsvar.2 ="C9120"
									| &hcpcsvar.3 ="J9395" | &hcpcsvar.3 ="C9120"
									| &hcpcsvar.4 ="J9395" | &hcpcsvar.4 ="C9120"
									| &hcpcsvar.5 ="J9395" | &hcpcsvar.5 ="C9120"
									| &hcpcsvar.6 ="J9395" | &hcpcsvar.6 ="C9120"
									| &hcpcsvar.7 ="J9395" | &hcpcsvar.7 ="C9120"
									| &hcpcsvar.8 ="J9395" | &hcpcsvar.8 ="C9120"
									| &hcpcsvar.9 ="J9395" | &hcpcsvar.9 ="C9120"
									| &hcpcsvar.10="J9395" | &hcpcsvar.10="C9120"
									| &hcpcsvar.11="J9395" | &hcpcsvar.11="C9120"
									| &hcpcsvar.12="J9395" | &hcpcsvar.12="C9120"
									| &hcpcsvar.13="J9395" | &hcpcsvar.13="C9120"
									| &hcpcsvar.14="J9395" | &hcpcsvar.14="C9120"
									| &hcpcsvar.15="J9395" | &hcpcsvar.15="C9120"
									| &hcpcsvar.16="J9395" | &hcpcsvar.16="C9120"
									| &hcpcsvar.17="J9395" | &hcpcsvar.17="C9120"
									| &hcpcsvar.18="J9395" | &hcpcsvar.18="C9120"
									| &hcpcsvar.19="J9395" | &hcpcsvar.19="C9120"
									| &hcpcsvar.20="J9395" | &hcpcsvar.20="C9120"
									| &hcpcsvar.21="J9395" | &hcpcsvar.21="C9120"
									| &hcpcsvar.22="J9395" | &hcpcsvar.22="C9120"
									| &hcpcsvar.23="J9395" | &hcpcsvar.23="C9120"
									| &hcpcsvar.24="J9395" | &hcpcsvar.24="C9120"
									| &hcpcsvar.25="J9395" | &hcpcsvar.25="C9120"
									| &hcpcsvar.26="J9395" | &hcpcsvar.26="C9120"
									| &hcpcsvar.27="J9395" | &hcpcsvar.27="C9120"
									| &hcpcsvar.28="J9395" | &hcpcsvar.28="C9120"
									| &hcpcsvar.29="J9395" | &hcpcsvar.29="C9120"
									| &hcpcsvar.30="J9395" | &hcpcsvar.30="C9120"
									| &hcpcsvar.31="J9395" | &hcpcsvar.31="C9120"
									| &hcpcsvar.32="J9395" | &hcpcsvar.32="C9120"
									| &hcpcsvar.33="J9395" | &hcpcsvar.33="C9120"
									| &hcpcsvar.34="J9395" | &hcpcsvar.34="C9120"
									| &hcpcsvar.35="J9395" | &hcpcsvar.35="C9120"
									| &hcpcsvar.36="J9395" | &hcpcsvar.36="C9120"
									| &hcpcsvar.37="J9395" | &hcpcsvar.37="C9120"
									| &hcpcsvar.38="J9395" | &hcpcsvar.38="C9120"
									| &hcpcsvar.39="J9395" | &hcpcsvar.39="C9120"
									| &hcpcsvar.40="J9395" | &hcpcsvar.40="C9120"
									| &hcpcsvar.41="J9395" | &hcpcsvar.41="C9120"
									| &hcpcsvar.42="J9395" | &hcpcsvar.42="C9120"
									| &hcpcsvar.43="J9395" | &hcpcsvar.43="C9120"
									| &hcpcsvar.44="J9395" | &hcpcsvar.44="C9120"
									| &hcpcsvar.45="J9395" | &hcpcsvar.45="C9120"
									| &hcpcsvar.46="J9395" | &hcpcsvar.46="C9120"
									| &hcpcsvar.47="J9395" | &hcpcsvar.47="C9120"
									| &hcpcsvar.48="J9395" | &hcpcsvar.48="C9120"
									| &hcpcsvar.49="J9395" | &hcpcsvar.49="C9120"
									| &hcpcsvar.50="J9395" | &hcpcsvar.50="C9120"
									| &hcpcsvar.51="J9395" | &hcpcsvar.51="C9120"
									| &hcpcsvar.52="J9395" | &hcpcsvar.52="C9120"
									| &hcpcsvar.53="J9395" | &hcpcsvar.53="C9120"
									| &hcpcsvar.54="J9395" | &hcpcsvar.54="C9120"
									| &hcpcsvar.55="J9395" | &hcpcsvar.55="C9120"
									| &hcpcsvar.56="J9395" | &hcpcsvar.56="C9120"
									| &hcpcsvar.57="J9395" | &hcpcsvar.57="C9120"
									| &hcpcsvar.58="J9395" | &hcpcsvar.58="C9120";
				chem_rasburicase 	= &hcpcsvar.1 ="J2783"
									| &hcpcsvar.2 ="J2783"
									| &hcpcsvar.3 ="J2783"
									| &hcpcsvar.4 ="J2783"
									| &hcpcsvar.5 ="J2783"
									| &hcpcsvar.6 ="J2783"
									| &hcpcsvar.7 ="J2783"
									| &hcpcsvar.8 ="J2783"
									| &hcpcsvar.9 ="J2783"
									| &hcpcsvar.10="J2783"
									| &hcpcsvar.11="J2783"
									| &hcpcsvar.12="J2783"
									| &hcpcsvar.13="J2783"
									| &hcpcsvar.14="J2783"
									| &hcpcsvar.15="J2783"
									| &hcpcsvar.16="J2783"
									| &hcpcsvar.17="J2783"
									| &hcpcsvar.18="J2783"
									| &hcpcsvar.19="J2783"
									| &hcpcsvar.20="J2783"
									| &hcpcsvar.21="J2783"
									| &hcpcsvar.22="J2783"
									| &hcpcsvar.23="J2783"
									| &hcpcsvar.24="J2783"
									| &hcpcsvar.25="J2783"
									| &hcpcsvar.26="J2783"
									| &hcpcsvar.27="J2783"
									| &hcpcsvar.28="J2783"
									| &hcpcsvar.29="J2783"
									| &hcpcsvar.30="J2783"
									| &hcpcsvar.31="J2783"
									| &hcpcsvar.32="J2783"
									| &hcpcsvar.33="J2783"
									| &hcpcsvar.34="J2783"
									| &hcpcsvar.35="J2783"
									| &hcpcsvar.36="J2783"
									| &hcpcsvar.37="J2783"
									| &hcpcsvar.38="J2783"
									| &hcpcsvar.39="J2783"
									| &hcpcsvar.40="J2783"
									| &hcpcsvar.41="J2783"
									| &hcpcsvar.42="J2783"
									| &hcpcsvar.43="J2783"
									| &hcpcsvar.44="J2783"
									| &hcpcsvar.45="J2783"
									| &hcpcsvar.46="J2783"
									| &hcpcsvar.47="J2783"
									| &hcpcsvar.48="J2783"
									| &hcpcsvar.49="J2783"
									| &hcpcsvar.50="J2783"
									| &hcpcsvar.51="J2783"
									| &hcpcsvar.52="J2783"
									| &hcpcsvar.53="J2783"
									| &hcpcsvar.54="J2783"
									| &hcpcsvar.55="J2783"
									| &hcpcsvar.56="J2783"
									| &hcpcsvar.57="J2783"
									| &hcpcsvar.58="J2783";
				chem_oxaliplatin 	= &hcpcsvar.1 ="J9263" | &hcpcsvar.1 ="C9205"
									| &hcpcsvar.2 ="J9263" | &hcpcsvar.2 ="C9205"
									| &hcpcsvar.3 ="J9263" | &hcpcsvar.3 ="C9205"
									| &hcpcsvar.4 ="J9263" | &hcpcsvar.4 ="C9205"
									| &hcpcsvar.5 ="J9263" | &hcpcsvar.5 ="C9205"
									| &hcpcsvar.6 ="J9263" | &hcpcsvar.6 ="C9205"
									| &hcpcsvar.7 ="J9263" | &hcpcsvar.7 ="C9205"
									| &hcpcsvar.8 ="J9263" | &hcpcsvar.8 ="C9205"
									| &hcpcsvar.9 ="J9263" | &hcpcsvar.9 ="C9205"
									| &hcpcsvar.10="J9263" | &hcpcsvar.10="C9205"
									| &hcpcsvar.11="J9263" | &hcpcsvar.11="C9205"
									| &hcpcsvar.12="J9263" | &hcpcsvar.12="C9205"
									| &hcpcsvar.13="J9263" | &hcpcsvar.13="C9205"
									| &hcpcsvar.14="J9263" | &hcpcsvar.14="C9205"
									| &hcpcsvar.15="J9263" | &hcpcsvar.15="C9205"
									| &hcpcsvar.16="J9263" | &hcpcsvar.16="C9205"
									| &hcpcsvar.17="J9263" | &hcpcsvar.17="C9205"
									| &hcpcsvar.18="J9263" | &hcpcsvar.18="C9205"
									| &hcpcsvar.19="J9263" | &hcpcsvar.19="C9205"
									| &hcpcsvar.20="J9263" | &hcpcsvar.20="C9205"
									| &hcpcsvar.21="J9263" | &hcpcsvar.21="C9205"
									| &hcpcsvar.22="J9263" | &hcpcsvar.22="C9205"
									| &hcpcsvar.23="J9263" | &hcpcsvar.23="C9205"
									| &hcpcsvar.24="J9263" | &hcpcsvar.24="C9205"
									| &hcpcsvar.25="J9263" | &hcpcsvar.25="C9205"
									| &hcpcsvar.26="J9263" | &hcpcsvar.26="C9205"
									| &hcpcsvar.27="J9263" | &hcpcsvar.27="C9205"
									| &hcpcsvar.28="J9263" | &hcpcsvar.28="C9205"
									| &hcpcsvar.29="J9263" | &hcpcsvar.29="C9205"
									| &hcpcsvar.30="J9263" | &hcpcsvar.30="C9205"
									| &hcpcsvar.31="J9263" | &hcpcsvar.31="C9205"
									| &hcpcsvar.32="J9263" | &hcpcsvar.32="C9205"
									| &hcpcsvar.33="J9263" | &hcpcsvar.33="C9205"
									| &hcpcsvar.34="J9263" | &hcpcsvar.34="C9205"
									| &hcpcsvar.35="J9263" | &hcpcsvar.35="C9205"
									| &hcpcsvar.36="J9263" | &hcpcsvar.36="C9205"
									| &hcpcsvar.37="J9263" | &hcpcsvar.37="C9205"
									| &hcpcsvar.38="J9263" | &hcpcsvar.38="C9205"
									| &hcpcsvar.39="J9263" | &hcpcsvar.39="C9205"
									| &hcpcsvar.40="J9263" | &hcpcsvar.40="C9205"
									| &hcpcsvar.41="J9263" | &hcpcsvar.41="C9205"
									| &hcpcsvar.42="J9263" | &hcpcsvar.42="C9205"
									| &hcpcsvar.43="J9263" | &hcpcsvar.43="C9205"
									| &hcpcsvar.44="J9263" | &hcpcsvar.44="C9205"
									| &hcpcsvar.45="J9263" | &hcpcsvar.45="C9205"
									| &hcpcsvar.46="J9263" | &hcpcsvar.46="C9205"
									| &hcpcsvar.47="J9263" | &hcpcsvar.47="C9205"
									| &hcpcsvar.48="J9263" | &hcpcsvar.48="C9205"
									| &hcpcsvar.49="J9263" | &hcpcsvar.49="C9205"
									| &hcpcsvar.50="J9263" | &hcpcsvar.50="C9205"
									| &hcpcsvar.51="J9263" | &hcpcsvar.51="C9205"
									| &hcpcsvar.52="J9263" | &hcpcsvar.52="C9205"
									| &hcpcsvar.53="J9263" | &hcpcsvar.53="C9205"
									| &hcpcsvar.54="J9263" | &hcpcsvar.54="C9205"
									| &hcpcsvar.55="J9263" | &hcpcsvar.55="C9205"
									| &hcpcsvar.56="J9263" | &hcpcsvar.56="C9205"
									| &hcpcsvar.57="J9263" | &hcpcsvar.57="C9205"
									| &hcpcsvar.58="J9263" | &hcpcsvar.58="C9205";
				chem_gefitinib 		= &hcpcsvar.1 ="J8565"
									| &hcpcsvar.2 ="J8565"
									| &hcpcsvar.3 ="J8565"
									| &hcpcsvar.4 ="J8565"
									| &hcpcsvar.5 ="J8565"
									| &hcpcsvar.6 ="J8565"
									| &hcpcsvar.7 ="J8565"
									| &hcpcsvar.8 ="J8565"
									| &hcpcsvar.9 ="J8565"
									| &hcpcsvar.10="J8565"
									| &hcpcsvar.11="J8565"
									| &hcpcsvar.12="J8565"
									| &hcpcsvar.13="J8565"
									| &hcpcsvar.14="J8565"
									| &hcpcsvar.15="J8565"
									| &hcpcsvar.16="J8565"
									| &hcpcsvar.17="J8565"
									| &hcpcsvar.18="J8565"
									| &hcpcsvar.19="J8565"
									| &hcpcsvar.20="J8565"
									| &hcpcsvar.21="J8565"
									| &hcpcsvar.22="J8565"
									| &hcpcsvar.23="J8565"
									| &hcpcsvar.24="J8565"
									| &hcpcsvar.25="J8565"
									| &hcpcsvar.26="J8565"
									| &hcpcsvar.27="J8565"
									| &hcpcsvar.28="J8565"
									| &hcpcsvar.29="J8565"
									| &hcpcsvar.30="J8565"
									| &hcpcsvar.31="J8565"
									| &hcpcsvar.32="J8565"
									| &hcpcsvar.33="J8565"
									| &hcpcsvar.34="J8565"
									| &hcpcsvar.35="J8565"
									| &hcpcsvar.36="J8565"
									| &hcpcsvar.37="J8565"
									| &hcpcsvar.38="J8565"
									| &hcpcsvar.39="J8565"
									| &hcpcsvar.40="J8565"
									| &hcpcsvar.41="J8565"
									| &hcpcsvar.42="J8565"
									| &hcpcsvar.43="J8565"
									| &hcpcsvar.44="J8565"
									| &hcpcsvar.45="J8565"
									| &hcpcsvar.46="J8565"
									| &hcpcsvar.47="J8565"
									| &hcpcsvar.48="J8565"
									| &hcpcsvar.49="J8565"
									| &hcpcsvar.50="J8565"
									| &hcpcsvar.51="J8565"
									| &hcpcsvar.52="J8565"
									| &hcpcsvar.53="J8565"
									| &hcpcsvar.54="J8565"
									| &hcpcsvar.55="J8565"
									| &hcpcsvar.56="J8565"
									| &hcpcsvar.57="J8565"
									| &hcpcsvar.58="J8565";
				chem_bortezomib 	= &hcpcsvar.1 ="J9041" | &hcpcsvar.1 ="S0115" | &hcpcsvar.1 ="C9207"
									| &hcpcsvar.2 ="J9041" | &hcpcsvar.2 ="S0115" | &hcpcsvar.2 ="C9207"
									| &hcpcsvar.3 ="J9041" | &hcpcsvar.3 ="S0115" | &hcpcsvar.3 ="C9207"
									| &hcpcsvar.4 ="J9041" | &hcpcsvar.4 ="S0115" | &hcpcsvar.4 ="C9207"
									| &hcpcsvar.5 ="J9041" | &hcpcsvar.5 ="S0115" | &hcpcsvar.5 ="C9207"
									| &hcpcsvar.6 ="J9041" | &hcpcsvar.6 ="S0115" | &hcpcsvar.6 ="C9207"
									| &hcpcsvar.7 ="J9041" | &hcpcsvar.7 ="S0115" | &hcpcsvar.7 ="C9207"
									| &hcpcsvar.8 ="J9041" | &hcpcsvar.8 ="S0115" | &hcpcsvar.8 ="C9207"
									| &hcpcsvar.9 ="J9041" | &hcpcsvar.9 ="S0115" | &hcpcsvar.9 ="C9207"
									| &hcpcsvar.10="J9041" | &hcpcsvar.10="S0115" | &hcpcsvar.10="C9207"
									| &hcpcsvar.11="J9041" | &hcpcsvar.11="S0115" | &hcpcsvar.11="C9207"
									| &hcpcsvar.12="J9041" | &hcpcsvar.12="S0115" | &hcpcsvar.12="C9207"
									| &hcpcsvar.13="J9041" | &hcpcsvar.13="S0115" | &hcpcsvar.13="C9207"
									| &hcpcsvar.14="J9041" | &hcpcsvar.14="S0115" | &hcpcsvar.14="C9207"
									| &hcpcsvar.15="J9041" | &hcpcsvar.15="S0115" | &hcpcsvar.15="C9207"
									| &hcpcsvar.16="J9041" | &hcpcsvar.16="S0115" | &hcpcsvar.16="C9207"
									| &hcpcsvar.17="J9041" | &hcpcsvar.17="S0115" | &hcpcsvar.17="C9207"
									| &hcpcsvar.18="J9041" | &hcpcsvar.18="S0115" | &hcpcsvar.18="C9207"
									| &hcpcsvar.19="J9041" | &hcpcsvar.19="S0115" | &hcpcsvar.19="C9207"
									| &hcpcsvar.20="J9041" | &hcpcsvar.20="S0115" | &hcpcsvar.20="C9207"
									| &hcpcsvar.21="J9041" | &hcpcsvar.21="S0115" | &hcpcsvar.21="C9207"
									| &hcpcsvar.22="J9041" | &hcpcsvar.22="S0115" | &hcpcsvar.22="C9207"
									| &hcpcsvar.23="J9041" | &hcpcsvar.23="S0115" | &hcpcsvar.23="C9207"
									| &hcpcsvar.24="J9041" | &hcpcsvar.24="S0115" | &hcpcsvar.24="C9207"
									| &hcpcsvar.25="J9041" | &hcpcsvar.25="S0115" | &hcpcsvar.25="C9207"
									| &hcpcsvar.26="J9041" | &hcpcsvar.26="S0115" | &hcpcsvar.26="C9207"
									| &hcpcsvar.27="J9041" | &hcpcsvar.27="S0115" | &hcpcsvar.27="C9207"
									| &hcpcsvar.28="J9041" | &hcpcsvar.28="S0115" | &hcpcsvar.28="C9207"
									| &hcpcsvar.29="J9041" | &hcpcsvar.29="S0115" | &hcpcsvar.29="C9207"
									| &hcpcsvar.30="J9041" | &hcpcsvar.30="S0115" | &hcpcsvar.30="C9207"
									| &hcpcsvar.31="J9041" | &hcpcsvar.31="S0115" | &hcpcsvar.31="C9207"
									| &hcpcsvar.32="J9041" | &hcpcsvar.32="S0115" | &hcpcsvar.32="C9207"
									| &hcpcsvar.33="J9041" | &hcpcsvar.33="S0115" | &hcpcsvar.33="C9207"
									| &hcpcsvar.34="J9041" | &hcpcsvar.34="S0115" | &hcpcsvar.34="C9207"
									| &hcpcsvar.35="J9041" | &hcpcsvar.35="S0115" | &hcpcsvar.35="C9207"
									| &hcpcsvar.36="J9041" | &hcpcsvar.36="S0115" | &hcpcsvar.36="C9207"
									| &hcpcsvar.37="J9041" | &hcpcsvar.37="S0115" | &hcpcsvar.37="C9207"
									| &hcpcsvar.38="J9041" | &hcpcsvar.38="S0115" | &hcpcsvar.38="C9207"
									| &hcpcsvar.39="J9041" | &hcpcsvar.39="S0115" | &hcpcsvar.39="C9207"
									| &hcpcsvar.40="J9041" | &hcpcsvar.40="S0115" | &hcpcsvar.40="C9207"
									| &hcpcsvar.41="J9041" | &hcpcsvar.41="S0115" | &hcpcsvar.41="C9207"
									| &hcpcsvar.42="J9041" | &hcpcsvar.42="S0115" | &hcpcsvar.42="C9207"
									| &hcpcsvar.43="J9041" | &hcpcsvar.43="S0115" | &hcpcsvar.43="C9207"
									| &hcpcsvar.44="J9041" | &hcpcsvar.44="S0115" | &hcpcsvar.44="C9207"
									| &hcpcsvar.45="J9041" | &hcpcsvar.45="S0115" | &hcpcsvar.45="C9207"
									| &hcpcsvar.46="J9041" | &hcpcsvar.46="S0115" | &hcpcsvar.46="C9207"
									| &hcpcsvar.47="J9041" | &hcpcsvar.47="S0115" | &hcpcsvar.47="C9207"
									| &hcpcsvar.48="J9041" | &hcpcsvar.48="S0115" | &hcpcsvar.48="C9207"
									| &hcpcsvar.49="J9041" | &hcpcsvar.49="S0115" | &hcpcsvar.49="C9207"
									| &hcpcsvar.50="J9041" | &hcpcsvar.50="S0115" | &hcpcsvar.50="C9207"
									| &hcpcsvar.51="J9041" | &hcpcsvar.51="S0115" | &hcpcsvar.51="C9207"
									| &hcpcsvar.52="J9041" | &hcpcsvar.52="S0115" | &hcpcsvar.52="C9207"
									| &hcpcsvar.53="J9041" | &hcpcsvar.53="S0115" | &hcpcsvar.53="C9207"
									| &hcpcsvar.54="J9041" | &hcpcsvar.54="S0115" | &hcpcsvar.54="C9207"
									| &hcpcsvar.55="J9041" | &hcpcsvar.55="S0115" | &hcpcsvar.55="C9207"
									| &hcpcsvar.56="J9041" | &hcpcsvar.56="S0115" | &hcpcsvar.56="C9207"
									| &hcpcsvar.57="J9041" | &hcpcsvar.57="S0115" | &hcpcsvar.57="C9207"
									| &hcpcsvar.58="J9041" | &hcpcsvar.58="S0115" | &hcpcsvar.58="C9207";
				chem_tositumomab 	= &hcpcsvar.1 ="C1080" | &hcpcsvar.1 ="C1081" | &hcpcsvar.1 ="A9544" | &hcpcsvar.1 ="A9545" | &hcpcsvar.1 ="G3001"
									| &hcpcsvar.2 ="C1080" | &hcpcsvar.2 ="C1081" | &hcpcsvar.2 ="A9544" | &hcpcsvar.2 ="A9545" | &hcpcsvar.2 ="G3001"
									| &hcpcsvar.3 ="C1080" | &hcpcsvar.3 ="C1081" | &hcpcsvar.3 ="A9544" | &hcpcsvar.3 ="A9545" | &hcpcsvar.3 ="G3001"
									| &hcpcsvar.4 ="C1080" | &hcpcsvar.4 ="C1081" | &hcpcsvar.4 ="A9544" | &hcpcsvar.4 ="A9545" | &hcpcsvar.4 ="G3001"
									| &hcpcsvar.5 ="C1080" | &hcpcsvar.5 ="C1081" | &hcpcsvar.5 ="A9544" | &hcpcsvar.5 ="A9545" | &hcpcsvar.5 ="G3001"
									| &hcpcsvar.6 ="C1080" | &hcpcsvar.6 ="C1081" | &hcpcsvar.6 ="A9544" | &hcpcsvar.6 ="A9545" | &hcpcsvar.6 ="G3001"
									| &hcpcsvar.7 ="C1080" | &hcpcsvar.7 ="C1081" | &hcpcsvar.7 ="A9544" | &hcpcsvar.7 ="A9545" | &hcpcsvar.7 ="G3001"
									| &hcpcsvar.8 ="C1080" | &hcpcsvar.8 ="C1081" | &hcpcsvar.8 ="A9544" | &hcpcsvar.8 ="A9545" | &hcpcsvar.8 ="G3001"
									| &hcpcsvar.9 ="C1080" | &hcpcsvar.9 ="C1081" | &hcpcsvar.9 ="A9544" | &hcpcsvar.9 ="A9545" | &hcpcsvar.9 ="G3001"
									| &hcpcsvar.10="C1080" | &hcpcsvar.10="C1081" | &hcpcsvar.10="A9544" | &hcpcsvar.10="A9545" | &hcpcsvar.10="G3001"
									| &hcpcsvar.11="C1080" | &hcpcsvar.11="C1081" | &hcpcsvar.11="A9544" | &hcpcsvar.11="A9545" | &hcpcsvar.11="G3001"
									| &hcpcsvar.12="C1080" | &hcpcsvar.12="C1081" | &hcpcsvar.12="A9544" | &hcpcsvar.12="A9545" | &hcpcsvar.12="G3001"
									| &hcpcsvar.13="C1080" | &hcpcsvar.13="C1081" | &hcpcsvar.13="A9544" | &hcpcsvar.13="A9545" | &hcpcsvar.13="G3001"
									| &hcpcsvar.14="C1080" | &hcpcsvar.14="C1081" | &hcpcsvar.14="A9544" | &hcpcsvar.14="A9545" | &hcpcsvar.14="G3001"
									| &hcpcsvar.15="C1080" | &hcpcsvar.15="C1081" | &hcpcsvar.15="A9544" | &hcpcsvar.15="A9545" | &hcpcsvar.15="G3001"
									| &hcpcsvar.16="C1080" | &hcpcsvar.16="C1081" | &hcpcsvar.16="A9544" | &hcpcsvar.16="A9545" | &hcpcsvar.16="G3001"
									| &hcpcsvar.17="C1080" | &hcpcsvar.17="C1081" | &hcpcsvar.17="A9544" | &hcpcsvar.17="A9545" | &hcpcsvar.17="G3001"
									| &hcpcsvar.18="C1080" | &hcpcsvar.18="C1081" | &hcpcsvar.18="A9544" | &hcpcsvar.18="A9545" | &hcpcsvar.18="G3001"
									| &hcpcsvar.19="C1080" | &hcpcsvar.19="C1081" | &hcpcsvar.19="A9544" | &hcpcsvar.19="A9545" | &hcpcsvar.19="G3001"
									| &hcpcsvar.20="C1080" | &hcpcsvar.20="C1081" | &hcpcsvar.20="A9544" | &hcpcsvar.20="A9545" | &hcpcsvar.20="G3001"
									| &hcpcsvar.21="C1080" | &hcpcsvar.21="C1081" | &hcpcsvar.21="A9544" | &hcpcsvar.21="A9545" | &hcpcsvar.21="G3001"
									| &hcpcsvar.22="C1080" | &hcpcsvar.22="C1081" | &hcpcsvar.22="A9544" | &hcpcsvar.22="A9545" | &hcpcsvar.22="G3001"
									| &hcpcsvar.23="C1080" | &hcpcsvar.23="C1081" | &hcpcsvar.23="A9544" | &hcpcsvar.23="A9545" | &hcpcsvar.23="G3001"
									| &hcpcsvar.24="C1080" | &hcpcsvar.24="C1081" | &hcpcsvar.24="A9544" | &hcpcsvar.24="A9545" | &hcpcsvar.24="G3001"
									| &hcpcsvar.25="C1080" | &hcpcsvar.25="C1081" | &hcpcsvar.25="A9544" | &hcpcsvar.25="A9545" | &hcpcsvar.25="G3001"
									| &hcpcsvar.26="C1080" | &hcpcsvar.26="C1081" | &hcpcsvar.26="A9544" | &hcpcsvar.26="A9545" | &hcpcsvar.26="G3001"
									| &hcpcsvar.27="C1080" | &hcpcsvar.27="C1081" | &hcpcsvar.27="A9544" | &hcpcsvar.27="A9545" | &hcpcsvar.27="G3001"
									| &hcpcsvar.28="C1080" | &hcpcsvar.28="C1081" | &hcpcsvar.28="A9544" | &hcpcsvar.28="A9545" | &hcpcsvar.28="G3001"
									| &hcpcsvar.29="C1080" | &hcpcsvar.29="C1081" | &hcpcsvar.29="A9544" | &hcpcsvar.29="A9545" | &hcpcsvar.29="G3001"
									| &hcpcsvar.30="C1080" | &hcpcsvar.30="C1081" | &hcpcsvar.30="A9544" | &hcpcsvar.30="A9545" | &hcpcsvar.30="G3001"
									| &hcpcsvar.31="C1080" | &hcpcsvar.31="C1081" | &hcpcsvar.31="A9544" | &hcpcsvar.31="A9545" | &hcpcsvar.31="G3001"
									| &hcpcsvar.32="C1080" | &hcpcsvar.32="C1081" | &hcpcsvar.32="A9544" | &hcpcsvar.32="A9545" | &hcpcsvar.32="G3001"
									| &hcpcsvar.33="C1080" | &hcpcsvar.33="C1081" | &hcpcsvar.33="A9544" | &hcpcsvar.33="A9545" | &hcpcsvar.33="G3001"
									| &hcpcsvar.34="C1080" | &hcpcsvar.34="C1081" | &hcpcsvar.34="A9544" | &hcpcsvar.34="A9545" | &hcpcsvar.34="G3001"
									| &hcpcsvar.35="C1080" | &hcpcsvar.35="C1081" | &hcpcsvar.35="A9544" | &hcpcsvar.35="A9545" | &hcpcsvar.35="G3001"
									| &hcpcsvar.36="C1080" | &hcpcsvar.36="C1081" | &hcpcsvar.36="A9544" | &hcpcsvar.36="A9545" | &hcpcsvar.36="G3001"
									| &hcpcsvar.37="C1080" | &hcpcsvar.37="C1081" | &hcpcsvar.37="A9544" | &hcpcsvar.37="A9545" | &hcpcsvar.37="G3001"
									| &hcpcsvar.38="C1080" | &hcpcsvar.38="C1081" | &hcpcsvar.38="A9544" | &hcpcsvar.38="A9545" | &hcpcsvar.38="G3001"
									| &hcpcsvar.39="C1080" | &hcpcsvar.39="C1081" | &hcpcsvar.39="A9544" | &hcpcsvar.39="A9545" | &hcpcsvar.39="G3001"
									| &hcpcsvar.40="C1080" | &hcpcsvar.40="C1081" | &hcpcsvar.40="A9544" | &hcpcsvar.40="A9545" | &hcpcsvar.40="G3001"
									| &hcpcsvar.41="C1080" | &hcpcsvar.41="C1081" | &hcpcsvar.41="A9544" | &hcpcsvar.41="A9545" | &hcpcsvar.41="G3001"
									| &hcpcsvar.42="C1080" | &hcpcsvar.42="C1081" | &hcpcsvar.42="A9544" | &hcpcsvar.42="A9545" | &hcpcsvar.42="G3001"
									| &hcpcsvar.43="C1080" | &hcpcsvar.43="C1081" | &hcpcsvar.43="A9544" | &hcpcsvar.43="A9545" | &hcpcsvar.43="G3001"
									| &hcpcsvar.44="C1080" | &hcpcsvar.44="C1081" | &hcpcsvar.44="A9544" | &hcpcsvar.44="A9545" | &hcpcsvar.44="G3001"
									| &hcpcsvar.45="C1080" | &hcpcsvar.45="C1081" | &hcpcsvar.45="A9544" | &hcpcsvar.45="A9545" | &hcpcsvar.45="G3001"
									| &hcpcsvar.46="C1080" | &hcpcsvar.46="C1081" | &hcpcsvar.46="A9544" | &hcpcsvar.46="A9545" | &hcpcsvar.46="G3001"
									| &hcpcsvar.47="C1080" | &hcpcsvar.47="C1081" | &hcpcsvar.47="A9544" | &hcpcsvar.47="A9545" | &hcpcsvar.47="G3001"
									| &hcpcsvar.48="C1080" | &hcpcsvar.48="C1081" | &hcpcsvar.48="A9544" | &hcpcsvar.48="A9545" | &hcpcsvar.48="G3001"
									| &hcpcsvar.49="C1080" | &hcpcsvar.49="C1081" | &hcpcsvar.49="A9544" | &hcpcsvar.49="A9545" | &hcpcsvar.49="G3001"
									| &hcpcsvar.50="C1080" | &hcpcsvar.50="C1081" | &hcpcsvar.50="A9544" | &hcpcsvar.50="A9545" | &hcpcsvar.50="G3001"
									| &hcpcsvar.51="C1080" | &hcpcsvar.51="C1081" | &hcpcsvar.51="A9544" | &hcpcsvar.51="A9545" | &hcpcsvar.51="G3001"
									| &hcpcsvar.52="C1080" | &hcpcsvar.52="C1081" | &hcpcsvar.52="A9544" | &hcpcsvar.52="A9545" | &hcpcsvar.52="G3001"
									| &hcpcsvar.53="C1080" | &hcpcsvar.53="C1081" | &hcpcsvar.53="A9544" | &hcpcsvar.53="A9545" | &hcpcsvar.53="G3001"
									| &hcpcsvar.54="C1080" | &hcpcsvar.54="C1081" | &hcpcsvar.54="A9544" | &hcpcsvar.54="A9545" | &hcpcsvar.54="G3001"
									| &hcpcsvar.55="C1080" | &hcpcsvar.55="C1081" | &hcpcsvar.55="A9544" | &hcpcsvar.55="A9545" | &hcpcsvar.55="G3001"
									| &hcpcsvar.56="C1080" | &hcpcsvar.56="C1081" | &hcpcsvar.56="A9544" | &hcpcsvar.56="A9545" | &hcpcsvar.56="G3001"
									| &hcpcsvar.57="C1080" | &hcpcsvar.57="C1081" | &hcpcsvar.57="A9544" | &hcpcsvar.57="A9545" | &hcpcsvar.57="G3001"
									| &hcpcsvar.58="C1080" | &hcpcsvar.58="C1081" | &hcpcsvar.58="A9544" | &hcpcsvar.58="A9545" | &hcpcsvar.58="G3001";
				chem_pemetrexed 	= &hcpcsvar.1 ="J9305" | &hcpcsvar.1 ="C9213"
									| &hcpcsvar.2 ="J9305" | &hcpcsvar.2 ="C9213"
									| &hcpcsvar.3 ="J9305" | &hcpcsvar.3 ="C9213"
									| &hcpcsvar.4 ="J9305" | &hcpcsvar.4 ="C9213"
									| &hcpcsvar.5 ="J9305" | &hcpcsvar.5 ="C9213"
									| &hcpcsvar.6 ="J9305" | &hcpcsvar.6 ="C9213"
									| &hcpcsvar.7 ="J9305" | &hcpcsvar.7 ="C9213"
									| &hcpcsvar.8 ="J9305" | &hcpcsvar.8 ="C9213"
									| &hcpcsvar.9 ="J9305" | &hcpcsvar.9 ="C9213"
									| &hcpcsvar.10="J9305" | &hcpcsvar.10="C9213"
									| &hcpcsvar.11="J9305" | &hcpcsvar.11="C9213"
									| &hcpcsvar.12="J9305" | &hcpcsvar.12="C9213"
									| &hcpcsvar.13="J9305" | &hcpcsvar.13="C9213"
									| &hcpcsvar.14="J9305" | &hcpcsvar.14="C9213"
									| &hcpcsvar.15="J9305" | &hcpcsvar.15="C9213"
									| &hcpcsvar.16="J9305" | &hcpcsvar.16="C9213"
									| &hcpcsvar.17="J9305" | &hcpcsvar.17="C9213"
									| &hcpcsvar.18="J9305" | &hcpcsvar.18="C9213"
									| &hcpcsvar.19="J9305" | &hcpcsvar.19="C9213"
									| &hcpcsvar.20="J9305" | &hcpcsvar.20="C9213"
									| &hcpcsvar.21="J9305" | &hcpcsvar.21="C9213"
									| &hcpcsvar.22="J9305" | &hcpcsvar.22="C9213"
									| &hcpcsvar.23="J9305" | &hcpcsvar.23="C9213"
									| &hcpcsvar.24="J9305" | &hcpcsvar.24="C9213"
									| &hcpcsvar.25="J9305" | &hcpcsvar.25="C9213"
									| &hcpcsvar.26="J9305" | &hcpcsvar.26="C9213"
									| &hcpcsvar.27="J9305" | &hcpcsvar.27="C9213"
									| &hcpcsvar.28="J9305" | &hcpcsvar.28="C9213"
									| &hcpcsvar.29="J9305" | &hcpcsvar.29="C9213"
									| &hcpcsvar.30="J9305" | &hcpcsvar.30="C9213"
									| &hcpcsvar.31="J9305" | &hcpcsvar.31="C9213"
									| &hcpcsvar.32="J9305" | &hcpcsvar.32="C9213"
									| &hcpcsvar.33="J9305" | &hcpcsvar.33="C9213"
									| &hcpcsvar.34="J9305" | &hcpcsvar.34="C9213"
									| &hcpcsvar.35="J9305" | &hcpcsvar.35="C9213"
									| &hcpcsvar.36="J9305" | &hcpcsvar.36="C9213"
									| &hcpcsvar.37="J9305" | &hcpcsvar.37="C9213"
									| &hcpcsvar.38="J9305" | &hcpcsvar.38="C9213"
									| &hcpcsvar.39="J9305" | &hcpcsvar.39="C9213"
									| &hcpcsvar.40="J9305" | &hcpcsvar.40="C9213"
									| &hcpcsvar.41="J9305" | &hcpcsvar.41="C9213"
									| &hcpcsvar.42="J9305" | &hcpcsvar.42="C9213"
									| &hcpcsvar.43="J9305" | &hcpcsvar.43="C9213"
									| &hcpcsvar.44="J9305" | &hcpcsvar.44="C9213"
									| &hcpcsvar.45="J9305" | &hcpcsvar.45="C9213"
									| &hcpcsvar.46="J9305" | &hcpcsvar.46="C9213"
									| &hcpcsvar.47="J9305" | &hcpcsvar.47="C9213"
									| &hcpcsvar.48="J9305" | &hcpcsvar.48="C9213"
									| &hcpcsvar.49="J9305" | &hcpcsvar.49="C9213"
									| &hcpcsvar.50="J9305" | &hcpcsvar.50="C9213"
									| &hcpcsvar.51="J9305" | &hcpcsvar.51="C9213"
									| &hcpcsvar.52="J9305" | &hcpcsvar.52="C9213"
									| &hcpcsvar.53="J9305" | &hcpcsvar.53="C9213"
									| &hcpcsvar.54="J9305" | &hcpcsvar.54="C9213"
									| &hcpcsvar.55="J9305" | &hcpcsvar.55="C9213"
									| &hcpcsvar.56="J9305" | &hcpcsvar.56="C9213"
									| &hcpcsvar.57="J9305" | &hcpcsvar.57="C9213"
									| &hcpcsvar.58="J9305" | &hcpcsvar.58="C9213";
				chem_cetuximab 		= &hcpcsvar.1 ="J9055" | &hcpcsvar.1 ="C9215"
									| &hcpcsvar.2 ="J9055" | &hcpcsvar.2 ="C9215"
									| &hcpcsvar.3 ="J9055" | &hcpcsvar.3 ="C9215"
									| &hcpcsvar.4 ="J9055" | &hcpcsvar.4 ="C9215"
									| &hcpcsvar.5 ="J9055" | &hcpcsvar.5 ="C9215"
									| &hcpcsvar.6 ="J9055" | &hcpcsvar.6 ="C9215"
									| &hcpcsvar.7 ="J9055" | &hcpcsvar.7 ="C9215"
									| &hcpcsvar.8 ="J9055" | &hcpcsvar.8 ="C9215"
									| &hcpcsvar.9 ="J9055" | &hcpcsvar.9 ="C9215"
									| &hcpcsvar.10="J9055" | &hcpcsvar.10="C9215"
									| &hcpcsvar.11="J9055" | &hcpcsvar.11="C9215"
									| &hcpcsvar.12="J9055" | &hcpcsvar.12="C9215"
									| &hcpcsvar.13="J9055" | &hcpcsvar.13="C9215"
									| &hcpcsvar.14="J9055" | &hcpcsvar.14="C9215"
									| &hcpcsvar.15="J9055" | &hcpcsvar.15="C9215"
									| &hcpcsvar.16="J9055" | &hcpcsvar.16="C9215"
									| &hcpcsvar.17="J9055" | &hcpcsvar.17="C9215"
									| &hcpcsvar.18="J9055" | &hcpcsvar.18="C9215"
									| &hcpcsvar.19="J9055" | &hcpcsvar.19="C9215"
									| &hcpcsvar.20="J9055" | &hcpcsvar.20="C9215"
									| &hcpcsvar.21="J9055" | &hcpcsvar.21="C9215"
									| &hcpcsvar.22="J9055" | &hcpcsvar.22="C9215"
									| &hcpcsvar.23="J9055" | &hcpcsvar.23="C9215"
									| &hcpcsvar.24="J9055" | &hcpcsvar.24="C9215"
									| &hcpcsvar.25="J9055" | &hcpcsvar.25="C9215"
									| &hcpcsvar.26="J9055" | &hcpcsvar.26="C9215"
									| &hcpcsvar.27="J9055" | &hcpcsvar.27="C9215"
									| &hcpcsvar.28="J9055" | &hcpcsvar.28="C9215"
									| &hcpcsvar.29="J9055" | &hcpcsvar.29="C9215"
									| &hcpcsvar.30="J9055" | &hcpcsvar.30="C9215"
									| &hcpcsvar.31="J9055" | &hcpcsvar.31="C9215"
									| &hcpcsvar.32="J9055" | &hcpcsvar.32="C9215"
									| &hcpcsvar.33="J9055" | &hcpcsvar.33="C9215"
									| &hcpcsvar.34="J9055" | &hcpcsvar.34="C9215"
									| &hcpcsvar.35="J9055" | &hcpcsvar.35="C9215"
									| &hcpcsvar.36="J9055" | &hcpcsvar.36="C9215"
									| &hcpcsvar.37="J9055" | &hcpcsvar.37="C9215"
									| &hcpcsvar.38="J9055" | &hcpcsvar.38="C9215"
									| &hcpcsvar.39="J9055" | &hcpcsvar.39="C9215"
									| &hcpcsvar.40="J9055" | &hcpcsvar.40="C9215"
									| &hcpcsvar.41="J9055" | &hcpcsvar.41="C9215"
									| &hcpcsvar.42="J9055" | &hcpcsvar.42="C9215"
									| &hcpcsvar.43="J9055" | &hcpcsvar.43="C9215"
									| &hcpcsvar.44="J9055" | &hcpcsvar.44="C9215"
									| &hcpcsvar.45="J9055" | &hcpcsvar.45="C9215"
									| &hcpcsvar.46="J9055" | &hcpcsvar.46="C9215"
									| &hcpcsvar.47="J9055" | &hcpcsvar.47="C9215"
									| &hcpcsvar.48="J9055" | &hcpcsvar.48="C9215"
									| &hcpcsvar.49="J9055" | &hcpcsvar.49="C9215"
									| &hcpcsvar.50="J9055" | &hcpcsvar.50="C9215"
									| &hcpcsvar.51="J9055" | &hcpcsvar.51="C9215"
									| &hcpcsvar.52="J9055" | &hcpcsvar.52="C9215"
									| &hcpcsvar.53="J9055" | &hcpcsvar.53="C9215"
									| &hcpcsvar.54="J9055" | &hcpcsvar.54="C9215"
									| &hcpcsvar.55="J9055" | &hcpcsvar.55="C9215"
									| &hcpcsvar.56="J9055" | &hcpcsvar.56="C9215"
									| &hcpcsvar.57="J9055" | &hcpcsvar.57="C9215"
									| &hcpcsvar.58="J9055" | &hcpcsvar.58="C9215";
				chem_bevacizumab 	= &hcpcsvar.1 ="J9035" | &hcpcsvar.1 ="C9257" | &hcpcsvar.1 ="Q2024" | &hcpcsvar.1 ="S0116" | &hcpcsvar.1 ="C9214"
									| &hcpcsvar.2 ="J9035" | &hcpcsvar.2 ="C9257" | &hcpcsvar.2 ="Q2024" | &hcpcsvar.2 ="S0116" | &hcpcsvar.2 ="C9214"
									| &hcpcsvar.3 ="J9035" | &hcpcsvar.3 ="C9257" | &hcpcsvar.3 ="Q2024" | &hcpcsvar.3 ="S0116" | &hcpcsvar.3 ="C9214"
									| &hcpcsvar.4 ="J9035" | &hcpcsvar.4 ="C9257" | &hcpcsvar.4 ="Q2024" | &hcpcsvar.4 ="S0116" | &hcpcsvar.4 ="C9214"
									| &hcpcsvar.5 ="J9035" | &hcpcsvar.5 ="C9257" | &hcpcsvar.5 ="Q2024" | &hcpcsvar.5 ="S0116" | &hcpcsvar.5 ="C9214"
									| &hcpcsvar.6 ="J9035" | &hcpcsvar.6 ="C9257" | &hcpcsvar.6 ="Q2024" | &hcpcsvar.6 ="S0116" | &hcpcsvar.6 ="C9214"
									| &hcpcsvar.7 ="J9035" | &hcpcsvar.7 ="C9257" | &hcpcsvar.7 ="Q2024" | &hcpcsvar.7 ="S0116" | &hcpcsvar.7 ="C9214"
									| &hcpcsvar.8 ="J9035" | &hcpcsvar.8 ="C9257" | &hcpcsvar.8 ="Q2024" | &hcpcsvar.8 ="S0116" | &hcpcsvar.8 ="C9214"
									| &hcpcsvar.9 ="J9035" | &hcpcsvar.9 ="C9257" | &hcpcsvar.9 ="Q2024" | &hcpcsvar.9 ="S0116" | &hcpcsvar.9 ="C9214"
									| &hcpcsvar.10="J9035" | &hcpcsvar.10="C9257" | &hcpcsvar.10="Q2024" | &hcpcsvar.10="S0116" | &hcpcsvar.10="C9214"
									| &hcpcsvar.11="J9035" | &hcpcsvar.11="C9257" | &hcpcsvar.11="Q2024" | &hcpcsvar.11="S0116" | &hcpcsvar.11="C9214"
									| &hcpcsvar.12="J9035" | &hcpcsvar.12="C9257" | &hcpcsvar.12="Q2024" | &hcpcsvar.12="S0116" | &hcpcsvar.12="C9214"
									| &hcpcsvar.13="J9035" | &hcpcsvar.13="C9257" | &hcpcsvar.13="Q2024" | &hcpcsvar.13="S0116" | &hcpcsvar.13="C9214"
									| &hcpcsvar.14="J9035" | &hcpcsvar.14="C9257" | &hcpcsvar.14="Q2024" | &hcpcsvar.14="S0116" | &hcpcsvar.14="C9214"
									| &hcpcsvar.15="J9035" | &hcpcsvar.15="C9257" | &hcpcsvar.15="Q2024" | &hcpcsvar.15="S0116" | &hcpcsvar.15="C9214"
									| &hcpcsvar.16="J9035" | &hcpcsvar.16="C9257" | &hcpcsvar.16="Q2024" | &hcpcsvar.16="S0116" | &hcpcsvar.16="C9214"
									| &hcpcsvar.17="J9035" | &hcpcsvar.17="C9257" | &hcpcsvar.17="Q2024" | &hcpcsvar.17="S0116" | &hcpcsvar.17="C9214"
									| &hcpcsvar.18="J9035" | &hcpcsvar.18="C9257" | &hcpcsvar.18="Q2024" | &hcpcsvar.18="S0116" | &hcpcsvar.18="C9214"
									| &hcpcsvar.19="J9035" | &hcpcsvar.19="C9257" | &hcpcsvar.19="Q2024" | &hcpcsvar.19="S0116" | &hcpcsvar.19="C9214"
									| &hcpcsvar.20="J9035" | &hcpcsvar.20="C9257" | &hcpcsvar.20="Q2024" | &hcpcsvar.20="S0116" | &hcpcsvar.20="C9214"
									| &hcpcsvar.21="J9035" | &hcpcsvar.21="C9257" | &hcpcsvar.21="Q2024" | &hcpcsvar.21="S0116" | &hcpcsvar.21="C9214"
									| &hcpcsvar.22="J9035" | &hcpcsvar.22="C9257" | &hcpcsvar.22="Q2024" | &hcpcsvar.22="S0116" | &hcpcsvar.22="C9214"
									| &hcpcsvar.23="J9035" | &hcpcsvar.23="C9257" | &hcpcsvar.23="Q2024" | &hcpcsvar.23="S0116" | &hcpcsvar.23="C9214"
									| &hcpcsvar.24="J9035" | &hcpcsvar.24="C9257" | &hcpcsvar.24="Q2024" | &hcpcsvar.24="S0116" | &hcpcsvar.24="C9214"
									| &hcpcsvar.25="J9035" | &hcpcsvar.25="C9257" | &hcpcsvar.25="Q2024" | &hcpcsvar.25="S0116" | &hcpcsvar.25="C9214"
									| &hcpcsvar.26="J9035" | &hcpcsvar.26="C9257" | &hcpcsvar.26="Q2024" | &hcpcsvar.26="S0116" | &hcpcsvar.26="C9214"
									| &hcpcsvar.27="J9035" | &hcpcsvar.27="C9257" | &hcpcsvar.27="Q2024" | &hcpcsvar.27="S0116" | &hcpcsvar.27="C9214"
									| &hcpcsvar.28="J9035" | &hcpcsvar.28="C9257" | &hcpcsvar.28="Q2024" | &hcpcsvar.28="S0116" | &hcpcsvar.28="C9214"
									| &hcpcsvar.29="J9035" | &hcpcsvar.29="C9257" | &hcpcsvar.29="Q2024" | &hcpcsvar.29="S0116" | &hcpcsvar.29="C9214"
									| &hcpcsvar.30="J9035" | &hcpcsvar.30="C9257" | &hcpcsvar.30="Q2024" | &hcpcsvar.30="S0116" | &hcpcsvar.30="C9214"
									| &hcpcsvar.31="J9035" | &hcpcsvar.31="C9257" | &hcpcsvar.31="Q2024" | &hcpcsvar.31="S0116" | &hcpcsvar.31="C9214"
									| &hcpcsvar.32="J9035" | &hcpcsvar.32="C9257" | &hcpcsvar.32="Q2024" | &hcpcsvar.32="S0116" | &hcpcsvar.32="C9214"
									| &hcpcsvar.33="J9035" | &hcpcsvar.33="C9257" | &hcpcsvar.33="Q2024" | &hcpcsvar.33="S0116" | &hcpcsvar.33="C9214"
									| &hcpcsvar.34="J9035" | &hcpcsvar.34="C9257" | &hcpcsvar.34="Q2024" | &hcpcsvar.34="S0116" | &hcpcsvar.34="C9214"
									| &hcpcsvar.35="J9035" | &hcpcsvar.35="C9257" | &hcpcsvar.35="Q2024" | &hcpcsvar.35="S0116" | &hcpcsvar.35="C9214"
									| &hcpcsvar.36="J9035" | &hcpcsvar.36="C9257" | &hcpcsvar.36="Q2024" | &hcpcsvar.36="S0116" | &hcpcsvar.36="C9214"
									| &hcpcsvar.37="J9035" | &hcpcsvar.37="C9257" | &hcpcsvar.37="Q2024" | &hcpcsvar.37="S0116" | &hcpcsvar.37="C9214"
									| &hcpcsvar.38="J9035" | &hcpcsvar.38="C9257" | &hcpcsvar.38="Q2024" | &hcpcsvar.38="S0116" | &hcpcsvar.38="C9214"
									| &hcpcsvar.39="J9035" | &hcpcsvar.39="C9257" | &hcpcsvar.39="Q2024" | &hcpcsvar.39="S0116" | &hcpcsvar.39="C9214"
									| &hcpcsvar.40="J9035" | &hcpcsvar.40="C9257" | &hcpcsvar.40="Q2024" | &hcpcsvar.40="S0116" | &hcpcsvar.40="C9214"
									| &hcpcsvar.41="J9035" | &hcpcsvar.41="C9257" | &hcpcsvar.41="Q2024" | &hcpcsvar.41="S0116" | &hcpcsvar.41="C9214"
									| &hcpcsvar.42="J9035" | &hcpcsvar.42="C9257" | &hcpcsvar.42="Q2024" | &hcpcsvar.42="S0116" | &hcpcsvar.42="C9214"
									| &hcpcsvar.43="J9035" | &hcpcsvar.43="C9257" | &hcpcsvar.43="Q2024" | &hcpcsvar.43="S0116" | &hcpcsvar.43="C9214"
									| &hcpcsvar.44="J9035" | &hcpcsvar.44="C9257" | &hcpcsvar.44="Q2024" | &hcpcsvar.44="S0116" | &hcpcsvar.44="C9214"
									| &hcpcsvar.45="J9035" | &hcpcsvar.45="C9257" | &hcpcsvar.45="Q2024" | &hcpcsvar.45="S0116" | &hcpcsvar.45="C9214"
									| &hcpcsvar.46="J9035" | &hcpcsvar.46="C9257" | &hcpcsvar.46="Q2024" | &hcpcsvar.46="S0116" | &hcpcsvar.46="C9214"
									| &hcpcsvar.47="J9035" | &hcpcsvar.47="C9257" | &hcpcsvar.47="Q2024" | &hcpcsvar.47="S0116" | &hcpcsvar.47="C9214"
									| &hcpcsvar.48="J9035" | &hcpcsvar.48="C9257" | &hcpcsvar.48="Q2024" | &hcpcsvar.48="S0116" | &hcpcsvar.48="C9214"
									| &hcpcsvar.49="J9035" | &hcpcsvar.49="C9257" | &hcpcsvar.49="Q2024" | &hcpcsvar.49="S0116" | &hcpcsvar.49="C9214"
									| &hcpcsvar.50="J9035" | &hcpcsvar.50="C9257" | &hcpcsvar.50="Q2024" | &hcpcsvar.50="S0116" | &hcpcsvar.50="C9214"
									| &hcpcsvar.51="J9035" | &hcpcsvar.51="C9257" | &hcpcsvar.51="Q2024" | &hcpcsvar.51="S0116" | &hcpcsvar.51="C9214"
									| &hcpcsvar.52="J9035" | &hcpcsvar.52="C9257" | &hcpcsvar.52="Q2024" | &hcpcsvar.52="S0116" | &hcpcsvar.52="C9214"
									| &hcpcsvar.53="J9035" | &hcpcsvar.53="C9257" | &hcpcsvar.53="Q2024" | &hcpcsvar.53="S0116" | &hcpcsvar.53="C9214"
									| &hcpcsvar.54="J9035" | &hcpcsvar.54="C9257" | &hcpcsvar.54="Q2024" | &hcpcsvar.54="S0116" | &hcpcsvar.54="C9214"
									| &hcpcsvar.55="J9035" | &hcpcsvar.55="C9257" | &hcpcsvar.55="Q2024" | &hcpcsvar.55="S0116" | &hcpcsvar.55="C9214"
									| &hcpcsvar.56="J9035" | &hcpcsvar.56="C9257" | &hcpcsvar.56="Q2024" | &hcpcsvar.56="S0116" | &hcpcsvar.56="C9214"
									| &hcpcsvar.57="J9035" | &hcpcsvar.57="C9257" | &hcpcsvar.57="Q2024" | &hcpcsvar.57="S0116" | &hcpcsvar.57="C9214"
									| &hcpcsvar.58="J9035" | &hcpcsvar.58="C9257" | &hcpcsvar.58="Q2024" | &hcpcsvar.58="S0116" | &hcpcsvar.58="C9214";
				chem_clofarabine 	= &hcpcsvar.1 ="J9027" | &hcpcsvar.1 ="C9129"
									| &hcpcsvar.2 ="J9027" | &hcpcsvar.2 ="C9129"
									| &hcpcsvar.3 ="J9027" | &hcpcsvar.3 ="C9129"
									| &hcpcsvar.4 ="J9027" | &hcpcsvar.4 ="C9129"
									| &hcpcsvar.5 ="J9027" | &hcpcsvar.5 ="C9129"
									| &hcpcsvar.6 ="J9027" | &hcpcsvar.6 ="C9129"
									| &hcpcsvar.7 ="J9027" | &hcpcsvar.7 ="C9129"
									| &hcpcsvar.8 ="J9027" | &hcpcsvar.8 ="C9129"
									| &hcpcsvar.9 ="J9027" | &hcpcsvar.9 ="C9129"
									| &hcpcsvar.10="J9027" | &hcpcsvar.10="C9129"
									| &hcpcsvar.11="J9027" | &hcpcsvar.11="C9129"
									| &hcpcsvar.12="J9027" | &hcpcsvar.12="C9129"
									| &hcpcsvar.13="J9027" | &hcpcsvar.13="C9129"
									| &hcpcsvar.14="J9027" | &hcpcsvar.14="C9129"
									| &hcpcsvar.15="J9027" | &hcpcsvar.15="C9129"
									| &hcpcsvar.16="J9027" | &hcpcsvar.16="C9129"
									| &hcpcsvar.17="J9027" | &hcpcsvar.17="C9129"
									| &hcpcsvar.18="J9027" | &hcpcsvar.18="C9129"
									| &hcpcsvar.19="J9027" | &hcpcsvar.19="C9129"
									| &hcpcsvar.20="J9027" | &hcpcsvar.20="C9129"
									| &hcpcsvar.21="J9027" | &hcpcsvar.21="C9129"
									| &hcpcsvar.22="J9027" | &hcpcsvar.22="C9129"
									| &hcpcsvar.23="J9027" | &hcpcsvar.23="C9129"
									| &hcpcsvar.24="J9027" | &hcpcsvar.24="C9129"
									| &hcpcsvar.25="J9027" | &hcpcsvar.25="C9129"
									| &hcpcsvar.26="J9027" | &hcpcsvar.26="C9129"
									| &hcpcsvar.27="J9027" | &hcpcsvar.27="C9129"
									| &hcpcsvar.28="J9027" | &hcpcsvar.28="C9129"
									| &hcpcsvar.29="J9027" | &hcpcsvar.29="C9129"
									| &hcpcsvar.30="J9027" | &hcpcsvar.30="C9129"
									| &hcpcsvar.31="J9027" | &hcpcsvar.31="C9129"
									| &hcpcsvar.32="J9027" | &hcpcsvar.32="C9129"
									| &hcpcsvar.33="J9027" | &hcpcsvar.33="C9129"
									| &hcpcsvar.34="J9027" | &hcpcsvar.34="C9129"
									| &hcpcsvar.35="J9027" | &hcpcsvar.35="C9129"
									| &hcpcsvar.36="J9027" | &hcpcsvar.36="C9129"
									| &hcpcsvar.37="J9027" | &hcpcsvar.37="C9129"
									| &hcpcsvar.38="J9027" | &hcpcsvar.38="C9129"
									| &hcpcsvar.39="J9027" | &hcpcsvar.39="C9129"
									| &hcpcsvar.40="J9027" | &hcpcsvar.40="C9129"
									| &hcpcsvar.41="J9027" | &hcpcsvar.41="C9129"
									| &hcpcsvar.42="J9027" | &hcpcsvar.42="C9129"
									| &hcpcsvar.43="J9027" | &hcpcsvar.43="C9129"
									| &hcpcsvar.44="J9027" | &hcpcsvar.44="C9129"
									| &hcpcsvar.45="J9027" | &hcpcsvar.45="C9129"
									| &hcpcsvar.46="J9027" | &hcpcsvar.46="C9129"
									| &hcpcsvar.47="J9027" | &hcpcsvar.47="C9129"
									| &hcpcsvar.48="J9027" | &hcpcsvar.48="C9129"
									| &hcpcsvar.49="J9027" | &hcpcsvar.49="C9129"
									| &hcpcsvar.50="J9027" | &hcpcsvar.50="C9129"
									| &hcpcsvar.51="J9027" | &hcpcsvar.51="C9129"
									| &hcpcsvar.52="J9027" | &hcpcsvar.52="C9129"
									| &hcpcsvar.53="J9027" | &hcpcsvar.53="C9129"
									| &hcpcsvar.54="J9027" | &hcpcsvar.54="C9129"
									| &hcpcsvar.55="J9027" | &hcpcsvar.55="C9129"
									| &hcpcsvar.56="J9027" | &hcpcsvar.56="C9129"
									| &hcpcsvar.57="J9027" | &hcpcsvar.57="C9129"
									| &hcpcsvar.58="J9027" | &hcpcsvar.58="C9129";
				chem_nelarabine 	= &hcpcsvar.1 ="J9261"
									| &hcpcsvar.2 ="J9261"
									| &hcpcsvar.3 ="J9261"
									| &hcpcsvar.4 ="J9261"
									| &hcpcsvar.5 ="J9261"
									| &hcpcsvar.6 ="J9261"
									| &hcpcsvar.7 ="J9261"
									| &hcpcsvar.8 ="J9261"
									| &hcpcsvar.9 ="J9261"
									| &hcpcsvar.10="J9261"
									| &hcpcsvar.11="J9261"
									| &hcpcsvar.12="J9261"
									| &hcpcsvar.13="J9261"
									| &hcpcsvar.14="J9261"
									| &hcpcsvar.15="J9261"
									| &hcpcsvar.16="J9261"
									| &hcpcsvar.17="J9261"
									| &hcpcsvar.18="J9261"
									| &hcpcsvar.19="J9261"
									| &hcpcsvar.20="J9261"
									| &hcpcsvar.21="J9261"
									| &hcpcsvar.22="J9261"
									| &hcpcsvar.23="J9261"
									| &hcpcsvar.24="J9261"
									| &hcpcsvar.25="J9261"
									| &hcpcsvar.26="J9261"
									| &hcpcsvar.27="J9261"
									| &hcpcsvar.28="J9261"
									| &hcpcsvar.29="J9261"
									| &hcpcsvar.30="J9261"
									| &hcpcsvar.31="J9261"
									| &hcpcsvar.32="J9261"
									| &hcpcsvar.33="J9261"
									| &hcpcsvar.34="J9261"
									| &hcpcsvar.35="J9261"
									| &hcpcsvar.36="J9261"
									| &hcpcsvar.37="J9261"
									| &hcpcsvar.38="J9261"
									| &hcpcsvar.39="J9261"
									| &hcpcsvar.40="J9261"
									| &hcpcsvar.41="J9261"
									| &hcpcsvar.42="J9261"
									| &hcpcsvar.43="J9261"
									| &hcpcsvar.44="J9261"
									| &hcpcsvar.45="J9261"
									| &hcpcsvar.46="J9261"
									| &hcpcsvar.47="J9261"
									| &hcpcsvar.48="J9261"
									| &hcpcsvar.49="J9261"
									| &hcpcsvar.50="J9261"
									| &hcpcsvar.51="J9261"
									| &hcpcsvar.52="J9261"
									| &hcpcsvar.53="J9261"
									| &hcpcsvar.54="J9261"
									| &hcpcsvar.55="J9261"
									| &hcpcsvar.56="J9261"
									| &hcpcsvar.57="J9261"
									| &hcpcsvar.58="J9261";
				chem_decitabine 	= &hcpcsvar.1 ="J0894" | &hcpcsvar.1 ="C9231"
									| &hcpcsvar.2 ="J0894" | &hcpcsvar.2 ="C9231"
									| &hcpcsvar.3 ="J0894" | &hcpcsvar.3 ="C9231"
									| &hcpcsvar.4 ="J0894" | &hcpcsvar.4 ="C9231"
									| &hcpcsvar.5 ="J0894" | &hcpcsvar.5 ="C9231"
									| &hcpcsvar.6 ="J0894" | &hcpcsvar.6 ="C9231"
									| &hcpcsvar.7 ="J0894" | &hcpcsvar.7 ="C9231"
									| &hcpcsvar.8 ="J0894" | &hcpcsvar.8 ="C9231"
									| &hcpcsvar.9 ="J0894" | &hcpcsvar.9 ="C9231"
									| &hcpcsvar.10="J0894" | &hcpcsvar.10="C9231"
									| &hcpcsvar.11="J0894" | &hcpcsvar.11="C9231"
									| &hcpcsvar.12="J0894" | &hcpcsvar.12="C9231"
									| &hcpcsvar.13="J0894" | &hcpcsvar.13="C9231"
									| &hcpcsvar.14="J0894" | &hcpcsvar.14="C9231"
									| &hcpcsvar.15="J0894" | &hcpcsvar.15="C9231"
									| &hcpcsvar.16="J0894" | &hcpcsvar.16="C9231"
									| &hcpcsvar.17="J0894" | &hcpcsvar.17="C9231"
									| &hcpcsvar.18="J0894" | &hcpcsvar.18="C9231"
									| &hcpcsvar.19="J0894" | &hcpcsvar.19="C9231"
									| &hcpcsvar.20="J0894" | &hcpcsvar.20="C9231"
									| &hcpcsvar.21="J0894" | &hcpcsvar.21="C9231"
									| &hcpcsvar.22="J0894" | &hcpcsvar.22="C9231"
									| &hcpcsvar.23="J0894" | &hcpcsvar.23="C9231"
									| &hcpcsvar.24="J0894" | &hcpcsvar.24="C9231"
									| &hcpcsvar.25="J0894" | &hcpcsvar.25="C9231"
									| &hcpcsvar.26="J0894" | &hcpcsvar.26="C9231"
									| &hcpcsvar.27="J0894" | &hcpcsvar.27="C9231"
									| &hcpcsvar.28="J0894" | &hcpcsvar.28="C9231"
									| &hcpcsvar.29="J0894" | &hcpcsvar.29="C9231"
									| &hcpcsvar.30="J0894" | &hcpcsvar.30="C9231"
									| &hcpcsvar.31="J0894" | &hcpcsvar.31="C9231"
									| &hcpcsvar.32="J0894" | &hcpcsvar.32="C9231"
									| &hcpcsvar.33="J0894" | &hcpcsvar.33="C9231"
									| &hcpcsvar.34="J0894" | &hcpcsvar.34="C9231"
									| &hcpcsvar.35="J0894" | &hcpcsvar.35="C9231"
									| &hcpcsvar.36="J0894" | &hcpcsvar.36="C9231"
									| &hcpcsvar.37="J0894" | &hcpcsvar.37="C9231"
									| &hcpcsvar.38="J0894" | &hcpcsvar.38="C9231"
									| &hcpcsvar.39="J0894" | &hcpcsvar.39="C9231"
									| &hcpcsvar.40="J0894" | &hcpcsvar.40="C9231"
									| &hcpcsvar.41="J0894" | &hcpcsvar.41="C9231"
									| &hcpcsvar.42="J0894" | &hcpcsvar.42="C9231"
									| &hcpcsvar.43="J0894" | &hcpcsvar.43="C9231"
									| &hcpcsvar.44="J0894" | &hcpcsvar.44="C9231"
									| &hcpcsvar.45="J0894" | &hcpcsvar.45="C9231"
									| &hcpcsvar.46="J0894" | &hcpcsvar.46="C9231"
									| &hcpcsvar.47="J0894" | &hcpcsvar.47="C9231"
									| &hcpcsvar.48="J0894" | &hcpcsvar.48="C9231"
									| &hcpcsvar.49="J0894" | &hcpcsvar.49="C9231"
									| &hcpcsvar.50="J0894" | &hcpcsvar.50="C9231"
									| &hcpcsvar.51="J0894" | &hcpcsvar.51="C9231"
									| &hcpcsvar.52="J0894" | &hcpcsvar.52="C9231"
									| &hcpcsvar.53="J0894" | &hcpcsvar.53="C9231"
									| &hcpcsvar.54="J0894" | &hcpcsvar.54="C9231"
									| &hcpcsvar.55="J0894" | &hcpcsvar.55="C9231"
									| &hcpcsvar.56="J0894" | &hcpcsvar.56="C9231"
									| &hcpcsvar.57="J0894" | &hcpcsvar.57="C9231"
									| &hcpcsvar.58="J0894" | &hcpcsvar.58="C9231";
				chem_panitumumab 	= &hcpcsvar.1 ="J9303" | &hcpcsvar.1 ="C9235"
									| &hcpcsvar.2 ="J9303" | &hcpcsvar.2 ="C9235"
									| &hcpcsvar.3 ="J9303" | &hcpcsvar.3 ="C9235"
									| &hcpcsvar.4 ="J9303" | &hcpcsvar.4 ="C9235"
									| &hcpcsvar.5 ="J9303" | &hcpcsvar.5 ="C9235"
									| &hcpcsvar.6 ="J9303" | &hcpcsvar.6 ="C9235"
									| &hcpcsvar.7 ="J9303" | &hcpcsvar.7 ="C9235"
									| &hcpcsvar.8 ="J9303" | &hcpcsvar.8 ="C9235"
									| &hcpcsvar.9 ="J9303" | &hcpcsvar.9 ="C9235"
									| &hcpcsvar.10="J9303" | &hcpcsvar.10="C9235"
									| &hcpcsvar.11="J9303" | &hcpcsvar.11="C9235"
									| &hcpcsvar.12="J9303" | &hcpcsvar.12="C9235"
									| &hcpcsvar.13="J9303" | &hcpcsvar.13="C9235"
									| &hcpcsvar.14="J9303" | &hcpcsvar.14="C9235"
									| &hcpcsvar.15="J9303" | &hcpcsvar.15="C9235"
									| &hcpcsvar.16="J9303" | &hcpcsvar.16="C9235"
									| &hcpcsvar.17="J9303" | &hcpcsvar.17="C9235"
									| &hcpcsvar.18="J9303" | &hcpcsvar.18="C9235"
									| &hcpcsvar.19="J9303" | &hcpcsvar.19="C9235"
									| &hcpcsvar.20="J9303" | &hcpcsvar.20="C9235"
									| &hcpcsvar.21="J9303" | &hcpcsvar.21="C9235"
									| &hcpcsvar.22="J9303" | &hcpcsvar.22="C9235"
									| &hcpcsvar.23="J9303" | &hcpcsvar.23="C9235"
									| &hcpcsvar.24="J9303" | &hcpcsvar.24="C9235"
									| &hcpcsvar.25="J9303" | &hcpcsvar.25="C9235"
									| &hcpcsvar.26="J9303" | &hcpcsvar.26="C9235"
									| &hcpcsvar.27="J9303" | &hcpcsvar.27="C9235"
									| &hcpcsvar.28="J9303" | &hcpcsvar.28="C9235"
									| &hcpcsvar.29="J9303" | &hcpcsvar.29="C9235"
									| &hcpcsvar.30="J9303" | &hcpcsvar.30="C9235"
									| &hcpcsvar.31="J9303" | &hcpcsvar.31="C9235"
									| &hcpcsvar.32="J9303" | &hcpcsvar.32="C9235"
									| &hcpcsvar.33="J9303" | &hcpcsvar.33="C9235"
									| &hcpcsvar.34="J9303" | &hcpcsvar.34="C9235"
									| &hcpcsvar.35="J9303" | &hcpcsvar.35="C9235"
									| &hcpcsvar.36="J9303" | &hcpcsvar.36="C9235"
									| &hcpcsvar.37="J9303" | &hcpcsvar.37="C9235"
									| &hcpcsvar.38="J9303" | &hcpcsvar.38="C9235"
									| &hcpcsvar.39="J9303" | &hcpcsvar.39="C9235"
									| &hcpcsvar.40="J9303" | &hcpcsvar.40="C9235"
									| &hcpcsvar.41="J9303" | &hcpcsvar.41="C9235"
									| &hcpcsvar.42="J9303" | &hcpcsvar.42="C9235"
									| &hcpcsvar.43="J9303" | &hcpcsvar.43="C9235"
									| &hcpcsvar.44="J9303" | &hcpcsvar.44="C9235"
									| &hcpcsvar.45="J9303" | &hcpcsvar.45="C9235"
									| &hcpcsvar.46="J9303" | &hcpcsvar.46="C9235"
									| &hcpcsvar.47="J9303" | &hcpcsvar.47="C9235"
									| &hcpcsvar.48="J9303" | &hcpcsvar.48="C9235"
									| &hcpcsvar.49="J9303" | &hcpcsvar.49="C9235"
									| &hcpcsvar.50="J9303" | &hcpcsvar.50="C9235"
									| &hcpcsvar.51="J9303" | &hcpcsvar.51="C9235"
									| &hcpcsvar.52="J9303" | &hcpcsvar.52="C9235"
									| &hcpcsvar.53="J9303" | &hcpcsvar.53="C9235"
									| &hcpcsvar.54="J9303" | &hcpcsvar.54="C9235"
									| &hcpcsvar.55="J9303" | &hcpcsvar.55="C9235"
									| &hcpcsvar.56="J9303" | &hcpcsvar.56="C9235"
									| &hcpcsvar.57="J9303" | &hcpcsvar.57="C9235"
									| &hcpcsvar.58="J9303" | &hcpcsvar.58="C9235";
				chem_temsirolimus 	= &hcpcsvar.1 ="J9330" | &hcpcsvar.1 ="C9239"
									| &hcpcsvar.2 ="J9330" | &hcpcsvar.2 ="C9239"
									| &hcpcsvar.3 ="J9330" | &hcpcsvar.3 ="C9239"
									| &hcpcsvar.4 ="J9330" | &hcpcsvar.4 ="C9239"
									| &hcpcsvar.5 ="J9330" | &hcpcsvar.5 ="C9239"
									| &hcpcsvar.6 ="J9330" | &hcpcsvar.6 ="C9239"
									| &hcpcsvar.7 ="J9330" | &hcpcsvar.7 ="C9239"
									| &hcpcsvar.8 ="J9330" | &hcpcsvar.8 ="C9239"
									| &hcpcsvar.9 ="J9330" | &hcpcsvar.9 ="C9239"
									| &hcpcsvar.10="J9330" | &hcpcsvar.10="C9239"
									| &hcpcsvar.11="J9330" | &hcpcsvar.11="C9239"
									| &hcpcsvar.12="J9330" | &hcpcsvar.12="C9239"
									| &hcpcsvar.13="J9330" | &hcpcsvar.13="C9239"
									| &hcpcsvar.14="J9330" | &hcpcsvar.14="C9239"
									| &hcpcsvar.15="J9330" | &hcpcsvar.15="C9239"
									| &hcpcsvar.16="J9330" | &hcpcsvar.16="C9239"
									| &hcpcsvar.17="J9330" | &hcpcsvar.17="C9239"
									| &hcpcsvar.18="J9330" | &hcpcsvar.18="C9239"
									| &hcpcsvar.19="J9330" | &hcpcsvar.19="C9239"
									| &hcpcsvar.20="J9330" | &hcpcsvar.20="C9239"
									| &hcpcsvar.21="J9330" | &hcpcsvar.21="C9239"
									| &hcpcsvar.22="J9330" | &hcpcsvar.22="C9239"
									| &hcpcsvar.23="J9330" | &hcpcsvar.23="C9239"
									| &hcpcsvar.24="J9330" | &hcpcsvar.24="C9239"
									| &hcpcsvar.25="J9330" | &hcpcsvar.25="C9239"
									| &hcpcsvar.26="J9330" | &hcpcsvar.26="C9239"
									| &hcpcsvar.27="J9330" | &hcpcsvar.27="C9239"
									| &hcpcsvar.28="J9330" | &hcpcsvar.28="C9239"
									| &hcpcsvar.29="J9330" | &hcpcsvar.29="C9239"
									| &hcpcsvar.30="J9330" | &hcpcsvar.30="C9239"
									| &hcpcsvar.31="J9330" | &hcpcsvar.31="C9239"
									| &hcpcsvar.32="J9330" | &hcpcsvar.32="C9239"
									| &hcpcsvar.33="J9330" | &hcpcsvar.33="C9239"
									| &hcpcsvar.34="J9330" | &hcpcsvar.34="C9239"
									| &hcpcsvar.35="J9330" | &hcpcsvar.35="C9239"
									| &hcpcsvar.36="J9330" | &hcpcsvar.36="C9239"
									| &hcpcsvar.37="J9330" | &hcpcsvar.37="C9239"
									| &hcpcsvar.38="J9330" | &hcpcsvar.38="C9239"
									| &hcpcsvar.39="J9330" | &hcpcsvar.39="C9239"
									| &hcpcsvar.40="J9330" | &hcpcsvar.40="C9239"
									| &hcpcsvar.41="J9330" | &hcpcsvar.41="C9239"
									| &hcpcsvar.42="J9330" | &hcpcsvar.42="C9239"
									| &hcpcsvar.43="J9330" | &hcpcsvar.43="C9239"
									| &hcpcsvar.44="J9330" | &hcpcsvar.44="C9239"
									| &hcpcsvar.45="J9330" | &hcpcsvar.45="C9239"
									| &hcpcsvar.46="J9330" | &hcpcsvar.46="C9239"
									| &hcpcsvar.47="J9330" | &hcpcsvar.47="C9239"
									| &hcpcsvar.48="J9330" | &hcpcsvar.48="C9239"
									| &hcpcsvar.49="J9330" | &hcpcsvar.49="C9239"
									| &hcpcsvar.50="J9330" | &hcpcsvar.50="C9239"
									| &hcpcsvar.51="J9330" | &hcpcsvar.51="C9239"
									| &hcpcsvar.52="J9330" | &hcpcsvar.52="C9239"
									| &hcpcsvar.53="J9330" | &hcpcsvar.53="C9239"
									| &hcpcsvar.54="J9330" | &hcpcsvar.54="C9239"
									| &hcpcsvar.55="J9330" | &hcpcsvar.55="C9239"
									| &hcpcsvar.56="J9330" | &hcpcsvar.56="C9239"
									| &hcpcsvar.57="J9330" | &hcpcsvar.57="C9239"
									| &hcpcsvar.58="J9330" | &hcpcsvar.58="C9239";
				chem_select 		= chem_capecitabine | chem_trastuzumab | chem_valrubicin 	| chem_denileukin 	| chem_temozolomide | chem_epirubicin 	| chem_bcg 
									| chem_gemtuzumab 	| chem_triptorelin | chem_arsenic 		| chem_alemtuzumab 	| chem_zoledronic 	| chem_ibritumomab 	| chem_fulvestrant 
									| chem_rasburicase 	| chem_oxaliplatin | chem_gefitinib 	| chem_bortezomib 	| chem_tositumomab 	| chem_pemetrexed 	| chem_cetuximab 
									| chem_bevacizumab 	| chem_clofarabine | chem_nelarabine 	| chem_decitabine 	| chem_panitumumab 	| chem_temsirolimus;
				
				/* IV chemo DRUGS */
				chem_linedrug 	= (index(&hcpcsvar.1 ,"J9")>0)
								| (index(&hcpcsvar.2 ,"J9")>0)
								| (index(&hcpcsvar.3 ,"J9")>0)
								| (index(&hcpcsvar.4 ,"J9")>0)
								| (index(&hcpcsvar.5 ,"J9")>0)
								| (index(&hcpcsvar.6 ,"J9")>0)
								| (index(&hcpcsvar.7 ,"J9")>0)
								| (index(&hcpcsvar.8 ,"J9")>0)
								| (index(&hcpcsvar.9 ,"J9")>0)
								| (index(&hcpcsvar.10,"J9")>0)
								| (index(&hcpcsvar.11,"J9")>0)
								| (index(&hcpcsvar.12,"J9")>0)
								| (index(&hcpcsvar.13,"J9")>0)
								| (index(&hcpcsvar.14,"J9")>0)
								| (index(&hcpcsvar.15,"J9")>0)
								| (index(&hcpcsvar.16,"J9")>0)
								| (index(&hcpcsvar.17,"J9")>0)
								| (index(&hcpcsvar.18,"J9")>0)
								| (index(&hcpcsvar.19,"J9")>0)
								| (index(&hcpcsvar.20,"J9")>0)
								| (index(&hcpcsvar.21,"J9")>0)
								| (index(&hcpcsvar.22,"J9")>0)
								| (index(&hcpcsvar.23,"J9")>0)
								| (index(&hcpcsvar.24,"J9")>0)
								| (index(&hcpcsvar.25,"J9")>0)
								| (index(&hcpcsvar.26,"J9")>0)
								| (index(&hcpcsvar.27,"J9")>0)
								| (index(&hcpcsvar.28,"J9")>0)
								| (index(&hcpcsvar.29,"J9")>0)
								| (index(&hcpcsvar.30,"J9")>0)
								| (index(&hcpcsvar.31,"J9")>0)
								| (index(&hcpcsvar.32,"J9")>0)
								| (index(&hcpcsvar.33,"J9")>0)
								| (index(&hcpcsvar.34,"J9")>0)
								| (index(&hcpcsvar.35,"J9")>0)
								| (index(&hcpcsvar.36,"J9")>0)
								| (index(&hcpcsvar.37,"J9")>0)
								| (index(&hcpcsvar.38,"J9")>0)
								| (index(&hcpcsvar.39,"J9")>0)
								| (index(&hcpcsvar.40,"J9")>0)
								| (index(&hcpcsvar.41,"J9")>0)
								| (index(&hcpcsvar.42,"J9")>0)
								| (index(&hcpcsvar.43,"J9")>0)
								| (index(&hcpcsvar.44,"J9")>0)
								| (index(&hcpcsvar.45,"J9")>0)
								| (index(&hcpcsvar.46,"J9")>0)
								| (index(&hcpcsvar.47,"J9")>0)
								| (index(&hcpcsvar.48,"J9")>0)
								| (index(&hcpcsvar.49,"J9")>0)
								| (index(&hcpcsvar.50,"J9")>0)
								| (index(&hcpcsvar.51,"J9")>0)
								| (index(&hcpcsvar.52,"J9")>0)
								| (index(&hcpcsvar.53,"J9")>0)
								| (index(&hcpcsvar.54,"J9")>0)
								| (index(&hcpcsvar.55,"J9")>0)
								| (index(&hcpcsvar.56,"J9")>0)
								| (index(&hcpcsvar.57,"J9")>0)
								| (index(&hcpcsvar.58,"J9")>0);
				
				/* Chemo ADMINISTRATION, based on available line items */
				chem_lineadmin 	= (96400<=input(&hcpcsvar.1 ,?? 5.) & input(&hcpcsvar.1 ,?? 5.)<=96549)
								| (96400<=input(&hcpcsvar.2 ,?? 5.) & input(&hcpcsvar.2 ,?? 5.)<=96549)
								| (96400<=input(&hcpcsvar.3 ,?? 5.) & input(&hcpcsvar.3 ,?? 5.)<=96549)
								| (96400<=input(&hcpcsvar.4 ,?? 5.) & input(&hcpcsvar.4 ,?? 5.)<=96549)
								| (96400<=input(&hcpcsvar.5 ,?? 5.) & input(&hcpcsvar.5 ,?? 5.)<=96549)
								| (96400<=input(&hcpcsvar.6 ,?? 5.) & input(&hcpcsvar.6 ,?? 5.)<=96549)
								| (96400<=input(&hcpcsvar.7 ,?? 5.) & input(&hcpcsvar.7 ,?? 5.)<=96549)
								| (96400<=input(&hcpcsvar.8 ,?? 5.) & input(&hcpcsvar.8 ,?? 5.)<=96549)
								| (96400<=input(&hcpcsvar.9 ,?? 5.) & input(&hcpcsvar.9 ,?? 5.)<=96549)
								| (96400<=input(&hcpcsvar.10,?? 5.) & input(&hcpcsvar.10,?? 5.)<=96549)
								| (96400<=input(&hcpcsvar.11,?? 5.) & input(&hcpcsvar.11,?? 5.)<=96549)
								| (96400<=input(&hcpcsvar.12,?? 5.) & input(&hcpcsvar.12,?? 5.)<=96549)
								| (96400<=input(&hcpcsvar.13,?? 5.) & input(&hcpcsvar.13,?? 5.)<=96549)
								| (96400<=input(&hcpcsvar.14,?? 5.) & input(&hcpcsvar.14,?? 5.)<=96549)
								| (96400<=input(&hcpcsvar.15,?? 5.) & input(&hcpcsvar.15,?? 5.)<=96549)
								| (96400<=input(&hcpcsvar.16,?? 5.) & input(&hcpcsvar.16,?? 5.)<=96549)
								| (96400<=input(&hcpcsvar.17,?? 5.) & input(&hcpcsvar.17,?? 5.)<=96549)
								| (96400<=input(&hcpcsvar.18,?? 5.) & input(&hcpcsvar.18,?? 5.)<=96549)
								| (96400<=input(&hcpcsvar.19,?? 5.) & input(&hcpcsvar.19,?? 5.)<=96549)
								| (96400<=input(&hcpcsvar.20,?? 5.) & input(&hcpcsvar.20,?? 5.)<=96549)
								| (96400<=input(&hcpcsvar.21,?? 5.) & input(&hcpcsvar.21,?? 5.)<=96549)
								| (96400<=input(&hcpcsvar.22,?? 5.) & input(&hcpcsvar.22,?? 5.)<=96549)
								| (96400<=input(&hcpcsvar.23,?? 5.) & input(&hcpcsvar.23,?? 5.)<=96549)
								| (96400<=input(&hcpcsvar.24,?? 5.) & input(&hcpcsvar.24,?? 5.)<=96549)
								| (96400<=input(&hcpcsvar.25,?? 5.) & input(&hcpcsvar.25,?? 5.)<=96549)
								| (96400<=input(&hcpcsvar.26,?? 5.) & input(&hcpcsvar.26,?? 5.)<=96549)
								| (96400<=input(&hcpcsvar.27,?? 5.) & input(&hcpcsvar.27,?? 5.)<=96549)
								| (96400<=input(&hcpcsvar.28,?? 5.) & input(&hcpcsvar.28,?? 5.)<=96549)
								| (96400<=input(&hcpcsvar.29,?? 5.) & input(&hcpcsvar.29,?? 5.)<=96549)
								| (96400<=input(&hcpcsvar.30,?? 5.) & input(&hcpcsvar.30,?? 5.)<=96549)
								| (96400<=input(&hcpcsvar.31,?? 5.) & input(&hcpcsvar.31,?? 5.)<=96549)
								| (96400<=input(&hcpcsvar.32,?? 5.) & input(&hcpcsvar.32,?? 5.)<=96549)
								| (96400<=input(&hcpcsvar.33,?? 5.) & input(&hcpcsvar.33,?? 5.)<=96549)
								| (96400<=input(&hcpcsvar.34,?? 5.) & input(&hcpcsvar.34,?? 5.)<=96549)
								| (96400<=input(&hcpcsvar.35,?? 5.) & input(&hcpcsvar.35,?? 5.)<=96549)
								| (96400<=input(&hcpcsvar.36,?? 5.) & input(&hcpcsvar.36,?? 5.)<=96549)
								| (96400<=input(&hcpcsvar.37,?? 5.) & input(&hcpcsvar.37,?? 5.)<=96549)
								| (96400<=input(&hcpcsvar.38,?? 5.) & input(&hcpcsvar.38,?? 5.)<=96549)
								| (96400<=input(&hcpcsvar.39,?? 5.) & input(&hcpcsvar.39,?? 5.)<=96549)
								| (96400<=input(&hcpcsvar.40,?? 5.) & input(&hcpcsvar.40,?? 5.)<=96549)
								| (96400<=input(&hcpcsvar.41,?? 5.) & input(&hcpcsvar.41,?? 5.)<=96549)
								| (96400<=input(&hcpcsvar.42,?? 5.) & input(&hcpcsvar.42,?? 5.)<=96549)
								| (96400<=input(&hcpcsvar.43,?? 5.) & input(&hcpcsvar.43,?? 5.)<=96549)
								| (96400<=input(&hcpcsvar.44,?? 5.) & input(&hcpcsvar.44,?? 5.)<=96549)
								| (96400<=input(&hcpcsvar.45,?? 5.) & input(&hcpcsvar.45,?? 5.)<=96549)
								| (96400<=input(&hcpcsvar.46,?? 5.) & input(&hcpcsvar.46,?? 5.)<=96549)
								| (96400<=input(&hcpcsvar.47,?? 5.) & input(&hcpcsvar.47,?? 5.)<=96549)
								| (96400<=input(&hcpcsvar.48,?? 5.) & input(&hcpcsvar.48,?? 5.)<=96549)
								| (96400<=input(&hcpcsvar.49,?? 5.) & input(&hcpcsvar.49,?? 5.)<=96549)
								| (96400<=input(&hcpcsvar.50,?? 5.) & input(&hcpcsvar.50,?? 5.)<=96549)
								| (96400<=input(&hcpcsvar.51,?? 5.) & input(&hcpcsvar.51,?? 5.)<=96549)
								| (96400<=input(&hcpcsvar.52,?? 5.) & input(&hcpcsvar.52,?? 5.)<=96549)
								| (96400<=input(&hcpcsvar.53,?? 5.) & input(&hcpcsvar.53,?? 5.)<=96549)
								| (96400<=input(&hcpcsvar.54,?? 5.) & input(&hcpcsvar.54,?? 5.)<=96549)
								| (96400<=input(&hcpcsvar.55,?? 5.) & input(&hcpcsvar.55,?? 5.)<=96549)
								| (96400<=input(&hcpcsvar.56,?? 5.) & input(&hcpcsvar.56,?? 5.)<=96549)
								| (96400<=input(&hcpcsvar.57,?? 5.) & input(&hcpcsvar.57,?? 5.)<=96549)
								| (96400<=input(&hcpcsvar.58,?? 5.) & input(&hcpcsvar.58,?? 5.)<=96549);
			%end; /* Outpatient files, 1998 */	
			
			/* BETOS chemo marker */
			%if %index(&currentfile.,car) %then %do;
				chem_linebetos	= (index(betos,"O1D")>0);
			%end;
			
			/* OTHER chemo, based on line diagnosis. */
			%if %index(&currentfile.,car) %then %do;
				%if (&year.<=1999) %then 	%let linedgns = blndx;
				%else 						%let linedgns = linedgns;
				chem_lineother 	= (index(&linedgns.,"V662") | index(&linedgns.,"V66.2") | index(&linedgns.,"V672") | index(&linedgns.,"V67.2"));
			%end;
			
			/* Indicate whether any line chemo indication */
			%if %index(&currentfile.,car) %then %do;
				chem_lineany = chem_select | chem_lineadmin | chem_linebetos | chem_linedrug | chem_lineother;
			%end;
			%if %index(&currentfile.,op)  %then %do;
				chem_lineany = chem_select | chem_lineadmin |                  chem_linedrug                 ;
			%end;
		run;
		%end;  /* END: All CAR and OP files */

		
		/* ---------------------------------------------------------------------------------------------------------- */
		/* STEP 2: For years where clms and lnits/revcntrs files combined, flag clms-level chemo indications          */
		/* ---------------------------------------------------------------------------------------------------------- */
		/* Clms-level file coding categories
		* Chemo Administration
		*	ICD9 DGNS:		Car{claim diagnosis}	Op{claim diagnosis}	codes{V58.1}
		*	ICD9 PCDR:		Car{}					Op{claim procedure}	codes{99.25}
		*	HCPCS Code:		Car{}					Op{}				codes{964xx,96400-96549,Q0083-Q0085,51720}	
		* Specific Drugs: 
		*	HCPCS Code:		Car{}					Op{}				codes{J9000-J9999}
		* Other:
		*	ICDP DGNS:		Car{claim diagnosis}	Op{claim diagnosis}	codes{V66.2,V67.2}
		* BETOS: 
		*	BETOS Code:		Car{} 					Op{}				codes{O1D} 
		*/
		%if (%index(&currentfile.,car) & (&year.<=2001)) | (%index(&currentfile.,op) & (&year.<=2000)) %then %do;
		data folder.&currentfile._flag;
			set folder.&currentfile._flag;
			
			/* Chemo ADMINISTRATION, based on clms-level items */
			%if %index(&currentfile.,car) %then %do;
				%if (&year.<=1999) %then %do; 	%let clmsdgns = bdx; 	 %end;
				%else 					 %do;	%let clmsdgns = dgns_cd; %end;
				chem_clmsadmin 	= (index(&clmsdgns.1,"V581")  | index(&clmsdgns.2,"V581")  | index(&clmsdgns.3,"V581")  | index(&clmsdgns.4,"V581") 
								 | index(&clmsdgns.1,"V58.1") | index(&clmsdgns.2,"V58.1") | index(&clmsdgns.3,"V58.1") | index(&clmsdgns.4,"V58.1"));
				chem_clmsother	= (index(&clmsdgns.1,"V662")  | index(&clmsdgns.2,"V662")  | index(&clmsdgns.3,"V662")  | index(&clmsdgns.4,"V662") 
								 | index(&clmsdgns.1,"V66.2") | index(&clmsdgns.2,"V66.2") | index(&clmsdgns.3,"V66.2") | index(&clmsdgns.4,"V66.2"))
								| (index(&clmsdgns.1,"V672")  | index(&clmsdgns.2,"V672")  | index(&clmsdgns.3,"V672")  | index(&clmsdgns.4,"V672")
								 | index(&clmsdgns.1,"V67.2") | index(&clmsdgns.2,"V67.2") | index(&clmsdgns.3,"V67.2") | index(&clmsdgns.4,"V67.2"));
			%end;
			%else %if %index(&currentfile.,op) & (&year.<=2000)  %then %do;
				%let clmsdgns = dgnscd; 
				%let clmsprcd = prcdrcd;
				chem_clmsadmin 	= (index(&clmsdgns.1,"V581")  | index(&clmsdgns.2,"V581")  | index(&clmsdgns.3,"V581")  | index(&clmsdgns.4,"V581")  | index(&clmsdgns.5,"V581")
								 | index(&clmsdgns.6,"V581")  | index(&clmsdgns.7,"V581")  | index(&clmsdgns.8,"V581")  | index(&clmsdgns.9,"V581")  | index(&clmsdgns.10,"V581")
								 | index(&clmsdgns.1,"V58.1") | index(&clmsdgns.2,"V58.1") | index(&clmsdgns.3,"V58.1") | index(&clmsdgns.4,"V58.1") | index(&clmsdgns.5,"V58.1")
								 | index(&clmsdgns.6,"V58.1") | index(&clmsdgns.7,"V58.1") | index(&clmsdgns.8,"V58.1") | index(&clmsdgns.9,"V58.1") | index(&clmsdgns.10,"V58.1"))
								| (index(&clmsprcd.1,"9925")  | index(&clmsprcd.2,"9925")  | index(&clmsprcd.3,"9925")  | index(&clmsprcd.4,"9925")  | index(&clmsprcd.5,"9925")  | index(&clmsprcd.6,"9925") 
								 | index(&clmsprcd.1,"99.25") | index(&clmsprcd.2,"99.25") | index(&clmsprcd.3,"99.25") | index(&clmsprcd.4,"99.25") | index(&clmsprcd.5,"99.25") | index(&clmsprcd.6,"99.25"));
				chem_clmsother	= (index(&clmsdgns.1,"V662")  | index(&clmsdgns.2,"V662")  | index(&clmsdgns.3,"V662")  | index(&clmsdgns.4,"V662")  | index(&clmsdgns.5,"V662")
								 | index(&clmsdgns.6,"V662")  | index(&clmsdgns.7,"V662")  | index(&clmsdgns.8,"V662")  | index(&clmsdgns.9,"V662")  | index(&clmsdgns.10,"V662")
								 | index(&clmsdgns.1,"V66.2") | index(&clmsdgns.2,"V66.2") | index(&clmsdgns.3,"V66.2") | index(&clmsdgns.4,"V66.2") | index(&clmsdgns.5,"V66.2")
								 | index(&clmsdgns.6,"V66.2") | index(&clmsdgns.7,"V66.2") | index(&clmsdgns.8,"V66.2") | index(&clmsdgns.9,"V66.2") | index(&clmsdgns.10,"V66.2"))
								| (index(&clmsdgns.1,"V672")  | index(&clmsdgns.2,"V672")  | index(&clmsdgns.3,"V672")  | index(&clmsdgns.4,"V672")  | index(&clmsdgns.5,"V672")
								 | index(&clmsdgns.6,"V672")  | index(&clmsdgns.7,"V672")  | index(&clmsdgns.8,"V672")  | index(&clmsdgns.9,"V672")  | index(&clmsdgns.10,"V672")
								 | index(&clmsdgns.1,"V67.2") | index(&clmsdgns.2,"V67.2") | index(&clmsdgns.3,"V67.2") | index(&clmsdgns.4,"V67.2") | index(&clmsdgns.5,"V67.2")
								 | index(&clmsdgns.6,"V67.2") | index(&clmsdgns.7,"V67.2") | index(&clmsdgns.8,"V67.2") | index(&clmsdgns.9,"V67.2") | index(&clmsdgns.10,"V67.2"));
			%end;
			
			/* Indicate whether any clms chemo indication */
			chem_clmsany	= chem_clmsadmin | chem_clmsother;
		run;
		%end;
		
		
		/* ---------------------------------------------------------------------------------------------------------- */
		/* STEP 3: Keep only select chemo claims, deleting all others                                                 */
		/* ---------------------------------------------------------------------------------------------------------- */
		data folder.&currentfile._chem;
			set folder.&currentfile._flag;
			%if (%index(&currentfile.,car) & (&year.<=2001)) | (%index(&currentfile.,op) & (&year.<=2000)) %then %do;
				if chem_lineany | chem_clmsany;
			%end;
			%else %do;
				if chem_lineany;
			%end;
		run;
		
		
		/* ---------------------------------------------------------------------------------------------------------- */
		/* STEP 4: Merge in clms-portion of record in years with split data, and flag clms-level chemo indications    */
		/* ---------------------------------------------------------------------------------------------------------- */
		/* Clms-level file coding categories
		* Chemo Administration
		*	ICD9 DGNS:		Car{claim diagnosis}	Op{claim diagnosis}	codes{V58.1}
		*	ICD9 PCDR:		Car{}					Op{claim procedure}	codes{99.25}
		*	HCPCS Code:		Car{}					Op{}				codes{964xx,96400-96549,Q0083-Q0085,51720}	
		* Specific Drugs: 
		*	HCPCS Code:		Car{}					Op{}				codes{J9000-J9999}
		* Other:
		*	ICDP DGNS:		Car{claim diagnosis}	Op{claim diagnosis}	codes{V66.2,V67.2}
		* BETOS: 
		*	BETOS Code:		Car{} 					Op{}				codes{O1D} 
		*/
		
		/* Skip this step if file is not part of a split year (i.e. neither lnits or revcntrs in file name.) */
		%if ~(%index(&currentfile.,lnits) | %index(&currentfile.,revcntrs)) %then %do; %goto skip_iter_merge; %end;
			
		/* Create the clms file name corresponding to the current (lnits or revcntrs) file. Do this by replacing the strings "lnits" and "revcntrs" with "clms"*/
		%let clmsfile_full = %sysfunc(tranwrd(%sysfunc(tranwrd(&currentfile_full.,lnits,clms)),revcntrs,clms));
		%let clmsfile = %sysfunc(tranwrd(%sysfunc(tranwrd(&currentfile.,lnits,clms)),revcntrs,clms));
		
		/* Unzip (if needed) the clmsfile to small, local disk, using the "extract" macro  */
		%if ~(%sysfunc(fileexist(&folder./&clmsfile..sas7bdat))) %then %extract(filename=&clmsfile_full.,logpath=PATH_TO_PROJECT_HOME_DIRECTORY/logs); 
		
		%let dsid = %sysfunc(open(folder.&currentfile,i));
		
		/* Determine the claimindex code */
		%let cicodelist = link_num claimindex clm_id; 
		%do i=1 %to %sysfunc(countw(&cicodelist));
			%if %sysfunc(varnum(&dsid,%scan(&cicodelist,&i))) %then %let claimindexvar = %scan(&cicodelist,&i);
		%end;
		
		/* Determine the beneficiary id code */
		%let idcodelist = ehic bene_id; 
		%do i=1 %to %sysfunc(countw(&idcodelist));
			%if %sysfunc(varnum(&dsid,%scan(&idcodelist,&i))) %then %let idvar = %scan(&idcodelist,&i);
		%end;
		
		%let dsid = %sysfunc(close(&dsid));
		
		/* Sort the chemo and clms files by the claimindex and beneficiary id, in preparation for the merge */
		proc sort data=folder.&currentfile._chem; by &claimindexvar. &idvar.; run;
		proc sort data=folder.&clmsfile.; by &claimindexvar. &idvar.; run;
		
		/* Merge the select chemo claims currentfile_chem with the clmsfile. 
		   	Put the line items file (chem) 2nd, so that any common variables between claims and line items files (this happens in some 
		   	years, e.g. op100 2001-2005) take on the line items values, and not the clms values 
		*/
		data folder.&currentfile._chem;
			merge folder.&clmsfile. (in = from_clms) folder.&currentfile._chem (in = from_chem);
			
			/* Merge on claimindex and ehic/bene_id. */
			by &claimindexvar. &idvar.;
			
			/* Determine which clmsfile claims indicate chemo administration */
			%if %index(&currentfile.,car) & (2002<=&year.) %then %do;
				%if (&year.<=2005) %then %do;
					chem_clmsadmin 	= (index(dgns_cd1,"V581")  | index(dgns_cd2,"V581")  | index(dgns_cd3,"V581")  | index(dgns_cd4,"V581") 
									 | index(dgns_cd1,"V58.1") | index(dgns_cd2,"V58.1") | index(dgns_cd3,"V58.1") | index(dgns_cd4,"V58.1"));
					chem_clmsother	= (index(dgns_cd1,"V662")  | index(dgns_cd2,"V662")  | index(dgns_cd3,"V662")  | index(dgns_cd4,"V662") 
									 | index(dgns_cd1,"V66.2") | index(dgns_cd2,"V66.2") | index(dgns_cd3,"V66.2") | index(dgns_cd4,"V66.2"))
									| (index(dgns_cd1,"V672")  | index(dgns_cd2,"V672")  | index(dgns_cd3,"V672")  | index(dgns_cd4,"V672")
									 | index(dgns_cd1,"V67.2") | index(dgns_cd2,"V67.2") | index(dgns_cd3,"V67.2") | index(dgns_cd4,"V67.2"));

				%end;
				%else %do;
					chem_clmsadmin 	= (index(dgns_cd1,"V581")  | index(dgns_cd2,"V581")  | index(dgns_cd3,"V581")  | index(dgns_cd4,"V581")  | index(dgns_cd5,"V581")  | index(dgns_cd6,"V581")  | index(dgns_cd7,"V581")  | index(dgns_cd8,"V581")
									 | index(dgns_cd1,"V58.1") | index(dgns_cd2,"V58.1") | index(dgns_cd3,"V58.1") | index(dgns_cd4,"V58.1") | index(dgns_cd5,"V58.1") | index(dgns_cd6,"V58.1") | index(dgns_cd7,"V58.1") | index(dgns_cd8,"V58.1"));
					chem_clmsother	= (index(dgns_cd1,"V662")  | index(dgns_cd2,"V662")  | index(dgns_cd3,"V662")  | index(dgns_cd4,"V662")  | index(dgns_cd5,"V662")  | index(dgns_cd6,"V662")  | index(dgns_cd7,"V662")  | index(dgns_cd8,"V662")
									 | index(dgns_cd1,"V66.2") | index(dgns_cd2,"V66.2") | index(dgns_cd3,"V66.2") | index(dgns_cd4,"V66.2") | index(dgns_cd5,"V66.2") | index(dgns_cd6,"V66.2") | index(dgns_cd7,"V66.2") | index(dgns_cd8,"V66.2"))
									| (index(dgns_cd1,"V672")  | index(dgns_cd2,"V672")  | index(dgns_cd3,"V672")  | index(dgns_cd4,"V672")  | index(dgns_cd5,"V672")  | index(dgns_cd6,"V672")  | index(dgns_cd7,"V672")  | index(dgns_cd8,"V672")
									 | index(dgns_cd1,"V67.2") | index(dgns_cd2,"V67.2") | index(dgns_cd3,"V67.2") | index(dgns_cd4,"V67.2") | index(dgns_cd5,"V67.2") | index(dgns_cd6,"V67.2") | index(dgns_cd7,"V67.2") | index(dgns_cd8,"V67.2"));
				%end;
			%end;
			%else %if %index(&currentfile.,op) %then %do;
				%if (&year.<=2005) %then %do; %let clmsdgns = dgns_cd; %let clmsprcd = prcdr_cd; %end;
				%else 		             %do; %let clmsdgns = dgnscd;  %let clmsprcd = prcdrcd;  %end;
				chem_clmsadmin 	= (index(&clmsdgns.1,"V581")  | index(&clmsdgns.2,"V581")  | index(&clmsdgns.3,"V581")  | index(&clmsdgns.4,"V581")  | index(&clmsdgns.5,"V581")
								 | index(&clmsdgns.6,"V581")  | index(&clmsdgns.7,"V581")  | index(&clmsdgns.8,"V581")  | index(&clmsdgns.9,"V581")  | index(&clmsdgns.10,"V581")
								 | index(&clmsdgns.1,"V58.1") | index(&clmsdgns.2,"V58.1") | index(&clmsdgns.3,"V58.1") | index(&clmsdgns.4,"V58.1") | index(&clmsdgns.5,"V58.1")
								 | index(&clmsdgns.6,"V58.1") | index(&clmsdgns.7,"V58.1") | index(&clmsdgns.8,"V58.1") | index(&clmsdgns.9,"V58.1") | index(&clmsdgns.10,"V58.1"))
								| (index(&clmsprcd.1,"9925")  | index(&clmsprcd.2,"9925")  | index(&clmsprcd.3,"9925")  | index(&clmsprcd.4,"9925")  | index(&clmsprcd.5,"9925")  | index(&clmsprcd.6,"9925") 
								 | index(&clmsprcd.1,"99.25") | index(&clmsprcd.2,"99.25") | index(&clmsprcd.3,"99.25") | index(&clmsprcd.4,"99.25") | index(&clmsprcd.5,"99.25") | index(&clmsprcd.6,"99.25"));
				chem_clmsother	= (index(&clmsdgns.1,"V662")  | index(&clmsdgns.2,"V662")  | index(&clmsdgns.3,"V662")  | index(&clmsdgns.4,"V662")  | index(&clmsdgns.5,"V662")
								 | index(&clmsdgns.6,"V662")  | index(&clmsdgns.7,"V662")  | index(&clmsdgns.8,"V662")  | index(&clmsdgns.9,"V662")  | index(&clmsdgns.10,"V662")
								 | index(&clmsdgns.1,"V66.2") | index(&clmsdgns.2,"V66.2") | index(&clmsdgns.3,"V66.2") | index(&clmsdgns.4,"V66.2") | index(&clmsdgns.5,"V66.2")
								 | index(&clmsdgns.6,"V66.2") | index(&clmsdgns.7,"V66.2") | index(&clmsdgns.8,"V66.2") | index(&clmsdgns.9,"V66.2") | index(&clmsdgns.10,"V66.2"))
								| (index(&clmsdgns.1,"V672")  | index(&clmsdgns.2,"V672")  | index(&clmsdgns.3,"V672")  | index(&clmsdgns.4,"V672")  | index(&clmsdgns.5,"V672")
								 | index(&clmsdgns.6,"V672")  | index(&clmsdgns.7,"V672")  | index(&clmsdgns.8,"V672")  | index(&clmsdgns.9,"V672")  | index(&clmsdgns.10,"V672")
								 | index(&clmsdgns.1,"V67.2") | index(&clmsdgns.2,"V67.2") | index(&clmsdgns.3,"V67.2") | index(&clmsdgns.4,"V67.2") | index(&clmsdgns.5,"V67.2")
								 | index(&clmsdgns.6,"V67.2") | index(&clmsdgns.7,"V67.2") | index(&clmsdgns.8,"V67.2") | index(&clmsdgns.9,"V67.2") | index(&clmsdgns.10,"V67.2"));
			%end;
			
			/* Indicate whether any clms chemo indication */
			chem_clmsany	= chem_clmsadmin | chem_clmsother;
			
			/* Keep claims in both chem and clms files, as well as any other clms that looked like chemo */
			if (from_chem & from_clms) | chem_clmsany;
		run;

		/* Clean up clms files */
		proc datasets NOLIST library = folder;
			delete &clmsfile.;
		run;
		
		/* Here is where you get sent in years where clms and lnits/revcntrs parts are not split, so no need to merge */
		%skip_iter_merge:;
		
		/* Clean up local folder */
		proc datasets NOLIST library = folder;
			delete &currentfile. &currentfile._flag;
		run; 
		
		/* Here is where you get sent if not a "line items" file */
		%skip_iter_file:;
	%end; /* iter_file */
	
	
	/* ----------------------------------------------------------------- */
	/* Append all chemo claims from current iter_year into a single file */
	
	/* Delete target file if already exists */
	proc datasets NOLIST library = folder;
		delete chem_&cmsdatatype.&pct._&year. chem_&cmsdatatype.&pct.bcd_&year.; 
	run;
	
	/* Append all file pieces from current iter_year.  */
	%do iter_file=1 %to %sysfunc(countw(&filenames,' '));
		/* Read in current file name */
		%let currentfile_full = %scan(&filenames,&iter_file,' ');
		%if %index(&currentfile_full.,.sas7bdat.bz2) %then %let currentfile = %substr(&currentfile_full.,1,%eval(%index(&currentfile_full.,.sas7bdat.bz2)-1));
		
		/* Skip if the chemo claims file does not exist for the currentfile name (e.g. for clms files, since they do not have the hcpcs line codes) */
		%if ~(%sysfunc(fileexist(&folder./&currentfile._chem.sas7bdat))) %then %do; %goto skip_iter_file2; %end;
		
		/* Append to pool file. 
			Follow special rule for 1998-1999 carrier files, where file types change and cannot all be appended into same file. 
			Follow special rule for 1999 outpatient files, where new variable is introduced midway and thus kills the append. */
		%if (1998<=&year.) & (&year.<=1999) & (%index(&currentfile.,car05b)>0 | %index(&currentfile.,car05c)>0 | %index(&currentfile.,car05d)>0) %then %do;
			proc append base=folder.chem_&cmsdatatype.&pct.bcd_&year. data=folder.&currentfile._chem; run;
			data folder.chem_&cmsdatatype.&pct.bcd_&year.;	
				/* CAR05C_1998_15, CAR05C_1998_16, and CAR05C_1999_1 all increase the length of some variables, affecting the append. */
				length obsi 	8.;
				length rec_len  5.;
				length acrtn_nm 5.;
				length link_num 5.;
				length sgmt_cnt 5.;
				length linecnt  5.;
				length pmt_amt  5.;
				length prpayamt 5.;
				length prov_pmt 5.;
				length bene_pmt 5.;
				length benepaid 5.;
				length sbmtchrg 5.;
				length alowchrg 5.;
				length dedapply 5.;
				length bldfrnsh 5.;
				length bld_ded  5.;
				length cedcnt 	5.;
				length cpatcnt  5.;
				length cmcocnt  5.;
				length cplncnt  5.;
				length cdemcnt  5.;
				length cdgncnt  5.;
				length clinecnt 5.;
				length srvc_cnt 5.;
				length linepmt  5.;
				length lbenpmt  5.;
				length lprvpmt  5.;
				length ldedamt  5.;
				length lprpdamt 5.;
				length coinamt  5.;
				length llmtamt  5.;
				length lint_amt 5.;
				length prpyalow 5.;
				length pnltyamt 5.;
				length lbld_ded 5.;
				length lsbmtchg 5.;
				length lalowchg 5.;
				length lab_amt  5.;
				length mtus_cnt 5.;
				length ansthunt 5.;
				length dme_purc 5.;
				length ncsty_mo 5.;
				length blksize  5.;
				length srecsize 5.;
				set folder.chem_&cmsdatatype.&pct.bcd_&year.;
			run;
		%end;
		%else %if (1999=&year.) & (%index(&currentfile.,op100)>0) %then %do;
			proc append base=folder.chem_&cmsdatatype.&pct._&year. data=folder.&currentfile._chem; run;
			/* In op100_1999_75_chem.sas7bdat, a new variable "hic2_7" is introduced. Prepare for that.  */
			data folder.chem_&cmsdatatype.&pct._&year.;
				length hic2_7 $6;
				set folder.chem_&cmsdatatype.&pct._&year.;
			run;
		%end;
		%else %do;
			proc append base=folder.chem_&cmsdatatype.&pct._&year. data=folder.&currentfile._chem; run;
		%end;
		
		/* Delete appended file */
		/*
		proc datasets NOLIST library = folder;
			delete &currentfile._chem;
		run; 
		*/
		
		/* Here is where you get sent if not a "line items" file */
		%skip_iter_file2:;
	%end;
	
	/* Here is where you get sent if year out of range [startyr, endyr] */
	%skip_iter_year:;
%end; /* iter_year */

%mend getDrugClaims;





/* ***************************************************************************************************
** MACRO name: denom
** Description
** 		Take full, annual denominator files in SAS format, and create a smaller STATA file  
**		containing only select variables.
** Usage:
**		Set startyr=1998, endyr=2008
** ************************************************************************************************ */

/* This macro takes full, annual denominator files, and creates a smaller file containing only select variables.  Nothing fancy. */
%macro denomselect(startyr=,endyr=);
/* SAS folder: Assumes that a copy of the full, annual denominator files in SAS format have been copied
**		from PATH_TO_MEDICARE_DATA to PATH_TO_PROJECT_HOME_DIRECTORY/extracts/denom/sas */
%let sasfold = PATH_TO_PROJECT_HOME_DIRECTORY/extracts/denom/sas; 	
libname sasfold "&sasfold.";

/* STATA folder: Set folder where output STATA files are stored */
%let folder = PATH_TO_PROJECT_HOME_DIRECTORY/extracts/denom; 	
libname folder "&folder.";

%do year = &startyr. %to &endyr.;
	/* Keep variables */
	%if (1998<=&year.) & (&year.<=2001) %then %let keepvars = ehic    dstate   dbdate   dsex drace dvddate  dddate   zip5;
	%if (2002<=&year.) & (&year.<=2005) %then %let keepvars = ehic    state    sdob     sex  race  death_sw sdod     zipcode;
	%if (2006<=&year.) & (&year.<=2008) %then %let keepvars = bene_id state_cd bene_dob sex  race  v_dod_sw death_dt bene_zip;
	
	/* Rename variables */
	%if (1998<=&year.) & (&year.<=2001) %then %let renamevars =    ehic=ehic      dstate=bstate   dbdate=bdob dsex=bsex drace=brace  dvddate=bvdod   dddate=bdod     zip5=bzip;
	%if (2002<=&year.) & (&year.<=2005) %then %let renamevars =    ehic=ehic       state=bstate     sdob=bdob  sex=bsex  race=brace death_sw=bvdod     sdod=bdod  zipcode=bzip;
	%if (2006<=&year.) & (&year.<=2008) %then %let renamevars = bene_id=bene_id state_cd=bstate bene_dob=bdob  sex=bsex  race=brace v_dod_sw=bvdod death_dt=bdod bene_zip=bzip;
	
	/* Read in large denom file, keep only select variables. */
	data sasfold.den100_&year._select (rename=(&renamevars.));
		set sasfold.den100_&year._1 (keep=&keepvars.);
		%if (2006<=&year.) & (&year.<=2008) %then %do;
			bene_zip = substr(bene_zip,1,5);
		%end;
	run;
	
	/* Convert to stata */
	x "st &sasfold./den100_&year._select.sas7bdat &folder./den100_&year._select.dta -y";
%end; /* do year */
%mend denomselect;








/* ***************************************************************************************************
** EXTRACT MEDICARE CLAIMS DATA
** ************************************************************************************************ */

/* Extract 20% carrier claims
**		NOTE: after extraction, move final carrier claims file to directory 
**		PATH_TO_PROJECT_HOME_DIRECTORY/extracts/car, and convert to STATA format (e.g. using StatTransfer) */
%getDrugClaims(cmsdatatype=car,pct=20,startyr=1998,endyr=2008);

/* Extract 100% outpatient claims
**		NOTE: after extraction, move final outpatient claims file to directory 
**		PATH_TO_PROJECT_HOME_DIRECTORY/extracts/op, and convert to STATA format (e.g. using StatTransfer) */
%getDrugClaims(cmsdatatype=op,pct=100,startyr=1998,endyr=2008);

/* Extract 100% Denominator files
**		NOTE: after extraction, move final denominator file to directory 
**		PATH_TO_PROJECT_HOME_DIRECTORY/extracts/denom, and convert to STATA format (e.g. using StatTransfer) */
%denomselect(startyr=1998,endyr=2008);








